3-AUG-2007
8-AUG-2007
1-OCT-2007
1-OCT-2007-RevA
1
2

##</code><code>##

 ($foo, $bar, $date) = qw(fooa bar7 1-OCT-2007-RevA);
  print "++$foo ++$bar ++$date\n"

##</code><code>##

  foob bar8 1