$s = '0123456789';;
print $s =~ 0;;
1

$r = 123;;
print $s =~ $r;;
1