How much text do you have in your pattern space when you try the match?

/ATDT\d+\s+BUSY/ ? print : print "Did not match '$_'\n";
[download]