# display this Perl CGI code! open (HIN,"code.pl") or die "Unable to read $0 file: $!\n"; @code=; close (HIN); foreach (@code) { # prevent html code from activating s/&/&/g unless /\x26\x26/; s/#$1@g if /#\s/&&!/#\(/; # colorize certain Perl keywords s@^#!(.+)@#!$1@; s@(\s*print\s*|elsif|eq\s|ne\s|foreach|while|open\s|close\s|if\s|use\s|die\s|\sor\s)@$1@ig unless /\(print/; s@(\x26\x26\s|\x2d>|\x3d>|\x2e=|\x7c\x7c\s|\x3a\x3a|\x2d\x2d|\x2b\x2b)@$1@g;# && -> => .= || :: -- ++ # colorize variables s@([\$\@]\w+)@$1@g; # vars s@([\$\@][!_|])@$1@g; # $! $_ $| @! @_ @| # add this changed code to the stream $purl.=$_; } print "
$purl
"; # end