my $pat = qr{^
	     (?{$pre0 = pos})
	     (.*)
	     (?{$x = pos() - $pre0; $pre = qr/.{$x}/; print STDERR "$pre\n"})
	     aa
	     (?{$post0 = pos})
	     (.*)
	     (?{$x =pos() - $post0; $post = qr/.{$x}/; print STDERR "$post\n"})
	     $
	     ^(??{ $pre }) bb (??{ $post }) $
	     ^(??{ $pre }) cc (??{ $post }) $
}xm;