--- code/trunk/perltest 2007/02/24 21:38:01 3 +++ code/trunk/perltest 2007/02/24 21:38:41 23 @@ -39,7 +39,7 @@ } else { $outfile = "STDOUT"; } -printf($outfile "Perl Regular Expressions\n\n"); +printf($outfile "Perl $] Regular Expressions\n\n"); # Main loop @@ -70,7 +70,7 @@ eval "\$_ =~ ${pattern}"; if ($@) { - printf $outfile "Error: $@\n"; + printf $outfile "Error: $@"; next NEXT_RE; }