#!/usr/bin/perl
use strict;
use warnings;
my $output = "Output: Got .\"ATDT123456\nBUSY";
print "matched\n" if $output =~ /ATDT\d+\nBUSY/m;

# or

print "matched\n" if $output =~ /ATDT\d+.BUSY/s;