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