my $count = () = $currentline =~ /\b$pattern\b/g;