$line = "TelecommuterTrac\WebIntHitList3";
# the whole text which contains the string:
$text =~ s/\Q$line\E/country/;