$_ = 'abcdefghijk';

foreach my $left ( 0 .. 1 )
	{
	my @memories = do {
		if( $left ) { /ab(..)ef/ }
		else        { /fg(..)jk/ }
		};
	
	print "Left $left: caught @memories\n"
	}