#!/usr/bin/perl --
while(<DATA>){
    /^\s+$/ and next;
    if(/George/){
        print "No soup for you!\n";
    }
    print "What soup you want? $_";
}

__DATA__

Kramer

Elaine

George