[ ~/tmp ] $ perl hl7_conv 
INPUT:   AB\T\F\S\CD
GEN_OUT: AB&F^CD
EXP_OUT: AB&F^CD
hl7_conv: SUCCESS!
[ ~/tmp ] $