C:\>perl -le "$_ =~ /sub mymy\{ }/;"

C:\>