Select Code to Download

# hl7_conv

...

    return join '', @output;
}

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

# hl7_conv

...

    return $in;
}

# hl7_conv

...

    return $in;
}

[ ~/tmp ] $ perl hl7_conv 
INPUT:   AB\T\F\S\CD
...
hl7_conv: SUCCESS!
[ ~/tmp ] $