This worked for me. $s_regx =~ s/\./\\./g; $s_regx =~ s/\*/.*/g;