$pattern = 'Seuss';
     while (<>) {
         print if /$pattern/;
     }