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