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