#!perl -pl
s//(.*)/g;@a="@{[1..6]} Do it!!"=~$_;$_="@a"||POOR