#### Program:
# The Non-Directive Shrink Program
print "shrink: Hello.\n";
for (;;) {
    print "  mark: ";
    $gibberish = <STDIN>;
    chomp($gibberish);
    if ( $gibberish eq "Bye." ) { last; }
    if ( $gibberish eq ""     ) { last; }
    print "\ndoctor: Did you say: \"$gibberish\"\n";
}
print "\ndoctor: Goodbye, sucker.";
__END__

#### Output:
doctor: Hello.
  mark: Hi. How are you?
  
doctor: Did you say: "Hi. How are you?"?
  mark: Yes. 

doctor: Did you say: "Yes."?
  mark: Bye.
  
doctor: Goodbye, sucker.
    
        
#### Notes on Code Fragments:

\"             # a quote character within a quote
               # the slash says treat me as a part of the string
               # not as an indication of the end of this string

############################# that's all folks #################################