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

##</code><code>##

foob bar8 1

##</code><code>##

print join(" ",++$foo,++$bar,++$date)