open(FH, "/Users/Desktop/file.txt") or die; 
my $content = join("", <FH>); 
close(FH);
my @matches = $content =~ /DATA\s+([A-Za-z\W]+)\n/g;
 print "Data:@matches\n";