#!/usr/bin/perl -w
use strict;
use Benchmark;

my $input = 'X' x 65;  #test input
my @result;

timethese(0, {
   'Regex' => sub {
                   undef @result;
                   @result = ($input =~ /(.{16})(.{20})(.{20})(.{1})(.{8})/);
                   #    print join "\t", @result;
                  },
   'Unpack' => sub {
                   undef @result;
                   @result = unpack "A16A20A20AA8",$input;
                   #    print join "\t", @result;
               },
   'Substr' => sub {
                   undef @result;
                   @result=((substr $input,0,15),
                                (substr $input,15,20),
                                (substr $input,35,20),
                                (substr $input,55,1),
                                (substr $input,56,8));
                   #    print join "\t", @result;
               },
});