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