my $pattern = "AB";
print "pattern is $pattern\n";
my ( $middle ) = $string =~ /($pattern+)/;
my ( $start, $end ) = ( $`, $' );
#.... and so on....