push @lines, grep( /$script/, @sfile );