Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    chop($string); 
    print $string, "\n"; # and down
}