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