if($currentSentence =~ /<\@> ([\S\s]+) lines?<\/head> ([\S\s]+) <\/s> <\@>/) { $features{$_}++ for map { split } $1,$2; }