use strict;
use warnings;

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

##</code><code>##

use strict;
use warnings;

{
	my $a = 0;
	print "(" . ~$a . ")\n";
}
{
	my $a = 1;
	print "(" . ~$a . ")\n";
}
{
	my $a = "";
	print "(" . ~$a . ")\n";
}

##</code><code>##

(4294967295)
(4294967294)
()

##</code><code>##

use strict;
use warnings;

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

##</code><code>##

4294967294
4294967295

##</code><code>##

use strict;
use warnings;

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

##</code><code>##

4294967294
(1)
4294967295
()