Help for this page
($foo, $bar, $date) = qw(fooa bar7 1-OCT-2007-RevA); print "++foo ++bar ++date\n"
foob bar8 1
print join(" ",++$foo,++$bar,++$date)