Sorry, I meant that for some reason between the original publishing of that page and Google caching it, the text of the script got escaped as HTML. You'll have to remove the HTML tags and unescape the four standard HTML entities.
If you're trying to learn about Perl, or even just have a local copy you can run, a script something like this will do that:
CODE
#!/usr/bin/perl
while($line = <STDIN>) {
$line =~ s/<[^>]+>//g;
$line =~ s/&lt;/</g;
$line =~ s/&gt;/>/g;
$line =~ s/&quot;/"/g;
$line =~ s/&amp;/&/g;
print $line;
};