If you've tried the first way and it didn't work, then I suspect that $after and/or $scur do not contain quite the data you expect. Can you confirm this? Are there newlines in either? Is case an issue? How about using:
my $pattern = "\\" . $cur;
if ($after =~ /$pattern/) { do something; }
|