#!/usr/bin/perl

use warnings;
use strict;

# ----------- viel code--------------

while(bla) {

    eval {

        no strict 'subs';

        local $SIG{_ _WARN_ _} = sub { die $_[0] };
    
        $primaryStructureSubStr = substr($primaryStructure1L, $k, $fragmentLength);
        
        $quartaryStructureSubStr = substr($quartaryStructureChainS, $k, $fragmentLength);
        
        $secondaryStructureSubStr = substr($secondaryStructureS, $k, $fragmentLength);
    
    };
    if($@) {
        print "skipping fragment \n";
        $k++;    
        next SKIPFRAG;    
    }
}