Select Code to Download

#!/usr/bin/perl -w
use strict;
...
                  }
         }
}

4478 00300 064 01 01/11/19 00:00:46 03 00000092a71228a9 255 01 00:00:3
+0 01 00 00 00 DID 0000000000000000 000 0000000000000000 0000000000000
+000 0000000000000000 000 61

dog 001
cat 002

if ($var =~ /dog\s(\d+)$/) {
print "$TOC{$1}\n";

if ($_ =~ /(\d{4})\s(\d{5})\s(\d{3})\s(\d{2})\s(\d{2}\/\d{2}\/\d{2})\s
+(\d{2}\:\d{2}\:\d{2})\s(\d{3})\s(\d{2})\s(\S+)\s(\d{2})\s(\d{2})\s(\d
+{2})\s(\d{2})\s(\w{3})$/) {
print "$1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $TOC{$15)";

print "$1, $2";