my %count;

while (<FILE>){
 
 next unless /something/; 
 if (/<LONG REGEX>/){
   
    $count{$3}++ if $3;
 }
}