Quoth the perlsyn:

Any simple statement may optionally be followed by a SINGLE modifier, just before the terminating semicolon (or block ending). The possible modifiers are:

    if EXPR
    unless EXPR
    while EXPR
    until EXPR
    foreach EXPR
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print