Select Code to Download

#! /usr/bin/perl
use strict;
...
    }
}

while (<>) {
    chomp;
    if (eof) {print "$_\n"}
    else {print "$_\t"}
}