Initial commit from the 2013 with minor fixes. From now and then,

[perlbook.git] / l44.pl

#!/usr/bin/perl -w
use strict;
use warnings;
my $text= 'a aaaaa aaaaaaaaaaaaaa';

  print "$1\n" while ($text =~ /(a*)/g);