in reply to separate data and print to two files
Isn't
$probe =~ /^\d{5}TU|TD$/ [download]
$maid =~ /^\d{5}TU|TD$/ [download]