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