$a = '$priyal';
$a =~ s/\Q$\E/tmp/g;
print $a;

o/p:tmppriyal