# Arithmetic my $str = 'Gabriel'; if $str ~~ m/ <+alnum - [ie]>* / { # recall: greedy match say "Matched '$/'"; }