Help for this page

Select Code to Download

Select or download this

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