Select Code to Download

if ( $line =~ /[^a-zA-Z]$sub[^a-zA-Z]*?\(/ ) {

foreach my $line ( @sub_code ) 
{
...
        and exists $SUBS{$1}) 
    { push @subs, $key }
}