$line =~ m/(.*?)(\d+\/\d+\/\d+)?\s*(.*)/;
   print "Input    : $line";
   print "Output \$1: -$1-\n";
   print "Output \$2: -$2-\n";
   print "Output \$3: -$3-\n\n";