C:\>perl -Mstrict -wle " if ( '+w' =~ m/\+ ([a-z])/xms ) { print 'yo'; } else { print 'no'; }"
yo