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

##</code><code>##

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