FA1 '|' FA2 '|' FA3 '|' FA4 [ '|' VA1 .. ]

##</code><code>##

my ( $f1, $f2, $f3, $f4, @v ) = split( /\|/ );