sub split_join {
    my $line = shift;
    my @tokens = split /[|]/, $line;
    if ($tokens[15] eq 'STOCK') {
        $tokens[15] = 'BOXXE';
        return join('|',@tokens);
    }
    else {
        return $line;
    }
}