if( $line =~ /$keyword/ ) { $Counter{ $keyword } ++; ...