$string = 'aaaaa';
print $1,$/ if $string =~ /(a)+/;
print $1,$/ if $string =~ /(a+)/;