perl -e '$;=$";$_=`
"rekcah$;another$;Perl$;tsuJ"$;2>&1`;/.+:$;(
.+)\s((.+)(\s)(.+))\s(.+)(\b):/x;@_=sort{//}
split//,join$;,sort{//}($6,$3,$5,$1);$"=$7;$
_=join$",@_;m;(\w+)\s(\w+)\s(\w+)\s(\w+);sx;
print+"$1$;",(eval{@{$/}=sort{//}split$",$2;
"@{$/}"}).$;.(eval{@{$/}=sort{//}split$",$3;
"@{$/}"})."$;$4$/"'