while (my $line = <FILE>) {
   if ( ($line =~ tr/r//) == 4 ) {
       print $line;
   }
}