#!perl -ln0
print/^./mgwhile s///g