Select Code to Download

perl -pi.bak -e 's[^#!/usr/local/bin/perl][#!/usr/bin/perl]' *.pl

perl -pi.bak -e 'BEGIN{$c=@ARGV};s[^#!/usr/local/bin/perl][#!/usr/bin/
+perl] && $c-- if $c> @ARGV' *.pl

#!/usr/bin/perl -w -i.bak
use strict
...
        }
        print;
}