I've been doing this one a lot lately. Anybody else get bitten by this one?

my ($data) =~ /^DQ(....)\d*.DAT/
[download]

I stare and stare at it wondering why Perl is telling me that I have an uninitialized value in a pattern match when I _know_ that $_ has something in it.