use strict;
use warnings;

##</code><code>##

while (<SOURCE>) {
   $script = <SOURCE>;
   chomp $script;
   @line=grep( /$script/, @sfile );
}

##</code><code>##

while(read(SOURCE, $script,1)){ #reading one byte at a time
     chomp $script;
     @line=grep( /$script/, @sfile );
     }