Select Code to Download

next if /^;/xms;

use English qw( -no_match_vars ); 
my $LIST_SEPERATOR = q{|};

#!/usr/bin/perl

...
print "@list\n";
}