Select Code to Download

$filename =~ /^(\d+)-(\d+)-(.*)/;
my $year = $1;
my $mon = $2;

print("$year-$mon");

my $filename = "2010-7-this-is-an.html";
my ($year, $mon) = split('-', $filename);
print("$year-$mon");