Select Code to Download

    use encoding 'latin1';
    $result .= "";

#!/usr/local/bin/perl
 
...
 
print "3" x 70, "\n";
print "|$result|\n";