Select Code to Download

for( @birds )
{
...
  s/puffin/poppin/;
  print;
}

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