>> Also want to mention, I liked : >> >> s/\b\d\b/0$&/g; > > Then at least, use > > s/\b(\d)\b/0$1/g;
And as shown by this very simple loop - it formats all three sections :)
YEAR:
for $x (0 .. 2) {
MONTH:
for $y (1 .. 12) {
DAY:
for $z (1 .. 31) {
# I don't care about leaps or
# overs in this simple example
$_ = "$y/$z/$x\n";
s/\b(\d)\b/0$1/g;
print $_
}}}
__END__
Cheers;
_Sx____________________
('> -Sx- IUDICIUM
//\ Have Computer -
v_/_ Will Hack...
