Untitled

my @lines = split(/\n/,$content);

foreach(@lines)
{
     if( /\"coiled coil region:\s(\d+)\sto\s(\d+)\"\s\/>/gi)
     {
          printf ("coiled coil at position: %d, %d found\n", $1, $2);
     }
     
     if(/\"low complexity region:\s(\d+)\sto\s(\d+)\"\s\/>/gi)
     {
          printf ("low complexity  at position: %d, %d found\n", $1, $2);
     }
}