To match .* across multiple newlines, use the //s switch:

if ($test_data_001 =~ /^__BEGIN_DATA__\n(.*)\n__END_DATA__$/s) { 
   # some action
}
[download]

The //s switch treats the whole string as a single line by allowing . to match a newline.