my $string = 'I am a "Perl programmer", you are a "piece of rust"'; $string =~ /"(.*)"/; print "$1\n";