my $fname = 'abcd1.20110429-2345';
my $date = 'NOT FOUND';
if ($fname =~ /(20\d{6})-\d{4}/) {
    $date = $1;
}
print $date,"\n";