Select Code to Download

use strict;
use warnings;
...
2nd match succeeded
3rd match failed
4th match succeeded

while ( $string =~ /(a\w+)/g ) {
  print "$1\n";
...
__END__
ar
az