Select Code to Download

use strict;
use warnings;
#use diagnostics; # if you get warnings

$line =~ s/\015?\012?\Z//m;

chomp($line=<IN>);