Select Code to Download

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

#!/usr/local/bin/perl
use strict;
...
        print "$string\n";
}
exit;

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