$a=@a[/\d+/g].="F $`$& "for<>;{map{/ (.) (.+) /,$$1eq$$2or$$1=$$2=y/F/T/,redo}@a}print@a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page