@line = grep( /$script[0]|$script[1]|.../, @sfile );