Select Code to Download

my $string = "'" . 'v' x 35_000 . "z'";
print "length of the string is: ", length($string), "\n";
...
($quote, $quoted) = $string =~ m/^(["'])((?:\\.|(?!\1)[^\\])*)\1/;
print "Text::ParseWords fails!\n" unless $quoted;