#! perl -slw
use strict;
use Time::HiRes qw[ time ];

my $start = time;

my $rec = chr(0) x 123;

my @type3l = split ':', '02:10:33:15:19:10:3:18:6:4';
my $n = 0;
my @type3o = map{
    $n += $_; $n - $_;
} @type3l;

my @type3 = map \substr( $rec, $type3o[ $_ ], $type3l[ $_ ] ), 0 .. $#type3o;

my @typeOl = split ':', '02:98:11:9';
$n = 0;
my @typeOo = map{
    $n += $_; $n - $_;
} @typeOl;

my @typeO = map \substr( $rec, $typeOo[ $_ ], $typeOl[ $_ ] ), 0 .. $#typeOo;

$/ = \123;
until( eof() ) {
    substr( $rec, 0 ) = <>;
    if( $rec =~ /^03/ ) {
        print join '/', map $$_, @type3;
    }
    else {
        print join '|', map $$_, @typeO;
    }
}

printf STDERR "Took %.3f for $. lines\n", time() - $start;