$ perl -le'
$_ = "one/two/three/four";
print m,/, ? "true" : "false";
$re = "/";
print $_ =~ $re ? "true" : "false";
'
true
true