while(<IN> && 'perl rulez') {
  print;
}