$success = TRUE;

$subject = "TEST/";
if $subject =~ s/TEST\//TEST/
{
   if $subject != "TEST" $success = FALSE;
}
else $success = FALSE;
