Select Code to Download

#!/usr/bin/perl

my $root_dir    = 'D:/';
...
    $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
    return scalar reverse $text;
}