if(/^A
     (?:
       Z
       |(\s.*?)
     )
     Z$/x) {
  $grabbed=$1//''
}

##</code><code>##

if(/^A
     (
       \s
       (?:.*?)
     )?
     Z$/x) {
  $grabbed=$1//''
}