{
  my $count = 0;
  s/(\d+_([a-z]+))/++$count > 2 ? $1 : $2/eg;
}