# Arithmetic

    my $str = 'Gabriel';

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