... my $subst = // is not doing what you think. It is doing a match of $_ =~ // in scalar context ...

Likewise
    my $regex =/\{\[%tqu .* ]}/;

OldChamp: You seem to have warnings enabled, but if so, you should have posted the warning messages generated.