#an example
($title, $letter1, $num, $letter2) = split(/ /,$_) if /^#  TITLE/;