my $val;
for (0..9) {
	if( /(2)/ ) {
		$val = $1;
		last;
	}
}