Help for this page
perl -le 'sub x{print shift}; x("0000001.610")' # 0000001.610 perl -le 'sub x{print shift}; x(0000001.610)' # 1610