my $str = 'aabcdabcabce';
my $re  = qr/a[^a]*/;