#!/bin/perl while () { s/href="(.*)"/href="$1.html"/g; print; }