Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"use 5.014;
...
 print s{\A(.+?),(.+?),(.+?)}{$3,$1,$2}xmsr
   for glob '{a,b,c},{I,II,III},{1,2,3,4}';
"