s#(A[^AZ]*;+[^AZ]*Z)#{($_=$1)=~s/;/,/g;$_}#eg;