Select Code to Download

#!/usr/ug/bin/perl -w
use strict;
use Cwd;
...
$dir =~ m!(\d{4})/(\d{4})! or die "In a bad directory: $dir";
$date_suffix = "$1.$2";
print "$date_suffix\n";