$_ = "abcde";
if (/(.)(.)/) { # first two
	if (/(.)(.)$/) {
		print "inner: $1 $2\n";
	}
	print "outer: $1 $2\n";
}
print "outer: $1 $2\n";