C:\pro3>perl -MText::Autoformat -e '$_=join" ",(@ARGVx50;s/!/"!"x[1..5]->[rand(5)]/eg;print autoformat $_' 'I WIN!' 'YOU LOSE!'