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