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