my $pat = qr/a+b/;
my $res = "aaab" =~ $pat;