while ( $content  =~ m/(map00.*<\/map>)/gmsi  ) {
        if($content  =~ /\"coiled coil region:\s(\d+)\sto\s(\d+)\"\s\/>/){
                printf ("coiled coil at position: %d, %d found\n", $1, $2);
        }
        if($content  =~ /\"low complexity region:\s(\d+)\sto\s(\d+)\"\s\/>/){
                printf ("low complexity  at position: %d, %d found\n", $1, $2);
        }


        $length = ($2 - $1) + 2;
        substr( $seq, $1 - 1, $length, "X" x $length );
}