my $line = "furrfu";
  $line =~ /(r+)/;
  print "$line contained ", length($1), " repeated 'r's\n";