use Regexp::Common;

while (<>) {
    /$RE{num}{real}/                and print q{a number\n};
    /$RE{quoted}/                   and print q{a ['"`] quoted string\n};
    /$RE{delimited}{-delim=>'/'}/   and print q{a /.../ sequence\n};
    /$RE{balanced}{-parens=>'()'}/  and print q{balanced parentheses\n};
    /$RE{profanity}/                and print q{a #*@%-ing word\n};
}