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