Oh, and I'll say this again. If you have ANY control over your input string, then you can match EXPLICITLY what you want. If you know the string is going to be in the form before-the-equals-sign='in-the-quotes', then you don't NEED to do

$string =~ /[^=]+='([^']+)'/;
[download]

If you are confident, just doing

$string =~ /='([^']+)'/;
[download]

is enough. It may not be 100 times faster, but it's less noise to look at.

$_="goto+F.print+chop;\n=yhpaj";F1:eval