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