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

print("$year-$mon");