#!/usr/bin/perl -w

# AUTHOR:		Laszlo Szathmary, szathml@delfin.unideb.hu

use strict;

open (F1, "<input.txt") || die();
while (<F1>)
{
   chomp;
   if (m#dog#i) {
      print $_, "\n";
   }
}
close F1;