sub getFeatures { my @tokens = split /\s+/, $_[0]; return @tokens; } if($currentSentence =~ /<@> ~~([\S\s]+) lines?<\/head> ([\S\s]+) <\/s> <@>/) { my @temp = getFeatures("$1 $2"); foreach my $variable (@temp) { $features{$variable} ++; } }~~