Select Code to Download

use warnings;
use strict;
...
    chomp $line;
    print "something here $line\n";
}

use warnings;
use strict;
...
    chomp;
    print "something here $_\n";
}