for( @birds )
{
  next unless /bar/;
  s/puffin/poppin/;
  print;
}

##</code><code>##

for $bird (@birds)
{
  next unless $bird =~ /bar/;
  $bird =~ s/puffin/poppin/;
  print $bird;
}