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