Help for this page
@echo off cda.pl %* & \bat\aa.bat
#!/usr/bin/perl ###################################################################### ... 1 while s/(.*\d)(\d\d\d)/$1,$2/; $_ = ${dlm}x($pad-length($_)).$_; }