use strict;
use warnings;

{
	$_ = "1234";
	my $ret = /2/g;
	print "($ret)\n"
}
{
	$_ = "1234";
	my $ret = /9/g;
	print "($ret)\n"
}