#!perl -044ln
printf s'@i'%s'gr x50,<>=~/..+/g