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