Select Code to Download

while (<IFILE>) {
    if (my ($word, $time_stamp) = /[#!]\s+(\w+)\s+(\d+)./) {
        print "[ $word $time_stamp ]\n";
    }
}