Select Code to Download

print "=====================================\n");
print "| INBOUND TRACK 1 | INBOUND TRACK 2 |\n");
...
     $in2 = s/:/ /;
     print "$in1|$in2";
}

while (my $in1 = <$IN1>) {
     chomp $in1;
...
     $in2 =~ s/:/ /;
     print "$in1|$in2";
}