Select Code to Download

sub split_join {
    my $line = shift;
...
        return $line;
    }
}

use strict;
use warnings;
...
}
__DATA__
AT0000937503|20060530|||142.708534||GROUP AG|30618720||||OPEN|ISIN|494
+3402|VSE|STOCK|39600000|0.77320|STOCK|test

Original: AT0000937503|20060530|||142.708534||GROUP AG|30618720||||OPE
+N|ISIN|4943402|VSE|STOCK|39600000|0.77320|STOCK|test
   split: AT0000937503|20060530|||142.708534||GROUP AG|30618720||||OPE
+N|ISIN|4943402|VSE|BOXXE|39600000|0.77320|STOCK|test
...
               Rate    splitjoin simple_regex
splitjoin    4274/s           --         -44%
simple_regex 7576/s          77%           --