Trap 2 - a bit more subtle 

• No trap here

while (<$fh>) {
  print if /badger/;
}

• Potential trap here!

while (<$fh>) {
  print if contains_badger($_);
}