$a = 'foo $\ bar';

print $a =~ /$\/;
print $a.$/;