if ($line =~ /$String/ .. $line =~ /\Q$end_line\E/) { 
    print $line;