use strict;
use warnings;
use Regexp::Common qw/balanced/;

#my $string = 'blah.boo(getSomething())';
my $string = 'blah.boo("getSomething")';

my ($match) = $string =~ /blah.boo($RE{balanced}{-parens=>'()'})[^;]*;/;

print $string, "\n" if ($match !~ /"/);