use strict;
use warnings;

{
	$_ = "1234";
	my $ret;
	print ~ m/2/, "\n";
}
{
	$_ = "1234";
	my $ret;
	print ~ m/9/, "\n";
}