You could translate qr// expressions as you read them.

while (<FILE>) {
    chomp;
    s{^qr/(.*)/$}{qr/$1/}e;
    push @hold, $_;
}
[download]

Note that this data is tainted and potentially dangerous. Don't do this unless you trust your data.