in reply to Regex Error

Try the following:

if ($after =~ /$scur/) { do something; }
or if you want a literal $ in the pattern:
if ($after =~ /\$scur/) { do something; }