my $x = "aabaab";
my ($y1) = $x =~ /([ab]+)/;
my ($y2) = $x =~ /([ab]+?)/;
print "$x -> '$y1' '$y2'\n";