#!perl -lp
$==s/\Gd //g,$_.="
$_"x$=