Benchmark::cmpthese(0, {
   split        => sub { @data = split(/\s+/, $line) },
   fixed_length => sub { @data = $line =~ /^.{8} {6}(.{10})(.{10})(.{10})(.{10})(.{10})(.{10})(.{10})(.{10})(.{10})(.{10})(.{10})(.{10})$/ },
   var_length   => sub { @data = $line =~ /^.{8}\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)$/ },

   g            => sub { @data = $line =~ /\S+/g; },
   unpack       => sub { @data = unpack 'A8x6A10A10A10A10A10A10A10A10A10A10A10A10', $line }
});