#! c:\perl\bin\perl

use Net::Telnet;

@look=$net->cmd("cat $file | grep -i 'DOG' | awk 'NR==1' | nawk '{print \$2}');
for $find (@look) {
$find =~ s/(^DOG)/\uNot Found!/g;
print "$find\n"; 
}