Forgot that you need to escape the '.' before it gets put in a regex, which complicates things a bit.

Not by that much. All you need to add, is '\Q':

$replace_on =~ s/\Q$str//;
[download]

I won't comment on the actual value of your idea, though. :)