Figure 1.10

rasto@zaphod ~ $ screen -x

There are several suitable screens on:

12207.pts-1.Evil-Fish (Attached)

#### #!/usr/bin/perl my $file = $ARGV[0]; open my $fh, $file; my $text; foreach my $line (readline $fh) { $text .= $line; } foreach my $match ( $text =~ /(

.*?

)/gsm) { my $temp = $match; $match =~ s/

/

/;
   $match =~ s/
//g;

   $match =~ s/
/<\/pre>/;
   $match =~ s/<\/B>//g;

   $text =~ s/$temp/$match/gsm;
}

print $text;