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

##</code><code>##

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

##</code><code>##

 _  _ _  _  
(_|| | |(_|><
 _|