Select Code to Download

#!usr/bin/perl --
use strict; use warnings;
...
    print $1 if /^([^:]+):/;
}
close $file;