#!perl -pl
$f=$_;@a=map$f=~s/^$_ ?//?' ':$_,1..6;$_=$f?POOR:"@a Do it!!"