map{my$i=$_;@a=qw(u o sup sub s i b);map{$b=splice@a,rand@a,1;$i = "\[$b]$i\[/$b]"}@a[rand@a..$#a];print$i}split//=>"@ARGV"