#!perl -pl $_="@{[1..6]} Do it!!"=~/^$_?/?$':"Miss..."