Select Code to Download

use strict;
use warnings;
...
[\"isnt]
[unnice.\"]

my $quoted = qr/
(?:(?|
...
    )
/x;

my $quoted = qr/
(?:(?|
...
    (?:(?:[^\\\' ]*(?:\\[^ ][^\\\' ]*)*)\')(?:[^\\\']*(?:\\.[^\\\']*)*
+)(?:\'|$)
))
/x;

my $quoted = qr/
(?:(?|
...
# and later:
    my $got = [ split $re, $str ];