>perl -wMstrict -le
"'AZ' =~ /A( [^Z]*)?Z/;
 print qq{'$1'};
"
Use of uninitialized value $1 in concatenation (.) or string at ...
''