It is very ugly and it is not very error prone (who knows what changes in regexp syntax can be expected in perl 5.10.0). It is better either to use already mentioned quotemeta or to escape string with \Q and \E in regexp. Example:
my $string = "some unsafe chars";
.... =~ /\Q$string\E/;
thanks for the code. well i know it would be a short s///, but was just looking up for if anyone has hook this on the network, so that i won't have to type. simply lazy.
but really, it might stab me again if i'll have to remember escaping everytime there's a regexp, or everytime there's a possibility to have big5 input. that's why i tried to ask if this can be solved by locale, or something else, that i don't have to write..