use warnings; use strict; my $str = "
A8A
"; if ( $str =~ m#(?<=
)(.+?)(?=)#s ) { print $1; ## prints A8A }