open(IN, "< prevplanin.txt"); open(OUT, "> prevplanout.htm"); my ($varalias, $varsource, $vartarget); print OUT "PLAN VERIFICATION"; $i = 1; while() { chomp; if (m/(alias) (.*) (.*) (.*) (.*) (.*) (.*) (.*)$/) { $varalias=$2, $varsource=$6, $vartarget=$8; print OUT "
"; print OUT "alias retrieved
"; print OUT "alias$varalias
"; print OUT "source"; print OUT "$varsource
"; print OUT "target$vartarget
"; print OUT "$i

"; $i = $i + 1; } print OUT "" } close(IN); close(OUT);