sub x{s/\w+//;split//,$&}for(<>){@a=x,@b=x;for$i(@a){for$j(@b){s/$/ $i$j/}}s/ //,print}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page