Not really much (if any) better:

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}';
"
[download]

(I won't show the output; it's as expected.)