while (<>) {
   if (/name/) {
      print;
      my $next_line = <>;
      # do something with $next_line ...
   }
}