Select Code to Download

use strict;
use warnings;
...
        }
    }
}

use warnings;
open FILE, "parole.sgm" or die "Couldn't open file.";
while (<FILE>) { print "$_ " for />([^<>]+)</g };
close FILE;