my $str = join '|', sort { length $b <=> length $a } keys %SUBS;
my $re = qr/[^a-zA-Z]($str)[^a-zA-Z]*\(/; 
/$re/ and push @subs, $1 for ( @sub_code );