Select Code to Download

$text = 'A0 peter Z0 ...  A42 peter, paul and mary Z42 ... A99 mary Z9
+9';
 
...
print "@or_matches \n";
__END__
0 peter 42 mary 99 mary

$text = 'A0 peter Z0 ...  A42 peter, paul and mary Z42 ... A99 mary Z9
+9';
 
...
print "@and_matches \n";
__END__
42 peter, paul and mary

print @and_matches =( $text =~
               m/
...
                    )
                    Z\1
                /xg );