$a = 'foo $\ bar'; print $a =~ /$\/; print $a.$/; [download]
1foo $\ bar [download]
In reply to Why won't it work? by innominate