$string =~ /"([^"]*)"/; # 'Perl programmer'