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)";