while () { print $_, "***\n"; }