my $str = "xaxaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa";
$str =~ /(a+)/;
print "$1\n";
# prints "a" not "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"