$line = 'this is TelecommuterTrac\WebIntHitList3';
$line =~ s/\QTelecommuterTrac\WebIntHitList3/country/;
print $line
__OUTPUT__
this is country