Select Code to Download

#!/usr/bin/perl -w

use strict;
...
    print map { $file =~ /$_/ ? $hints{$_} : () } keys %hints;
}
close FILE;