#!/usr/local/bin/perl
use strict;

my $myString ='stay "keep together" apart "and this" not';
print "\n$myString\n";

my (@foundStrings) = ($myString =~ /"([^"]+)"/g);

foreach my $string (@foundStrings) {
        print "$string\n";
}
exit;