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; }
[download]