Stuff

        while($content  =~ /\"coiled coil region:\s(\d+)\sto\s(\d+)\"\s\/>/mgsi){
                printf ("coiled coil at position: %d, %d found\n", $1, $2);
        }
        while($content  =~ /\"low complexity region:\s(\d+)\sto\s(\d+)\"\s\/>/mgsi){
                printf ("low complexity  at position: %d, %d found\n", $1, $2);
        }