Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
   $input =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
   return reverse $input;
}

Select or download this

Found item 'C:\testdir'
  Type: directory
...
  Access Time: Wed Aug 20 10:50:30 2014
  Inode change time: Wed Aug 20 10:50:30 2014
  Last modify time: Wed Aug 20 10:50:24 2014