#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $line = "DIQMTQSPSSLSASVGDRVTITCXXXXXXXXXXXWYQQKPGKAPKXXXXXXXXXXXGVPSRFSGSGSGTDFTLTISSLQPEDFATYYCXXXXXXXXTFGQGTKVEIK";
my %str;

$str{pos1} = substr($line, 0, 23);
$str{pos2} = substr($line, 23, 11);
$str{pos3} = substr($line, 34, 11);
$str{pos4} = substr($line, 45, 11);
$str{pos5} = substr($line, 56, 32);
$str{pos6} = substr($line, 88, 8);
$str{pos7} = substr($line, 96, 11);

print Dumper(\%str);