#!/usr/bin/perl -w use strict; print " please enter the domain name: "; my $targetdomain = ; chomp $targetdomain; my $file = "/home/adam/Desktop/hello"; open HAN,$file || die "error opening file: $!"; my @array = ; close(HAN); foreach my $x ( 0 .. $#array ){ if( $array[$x] =~ m/^zone\s+"$targetdomain"/ ){ for my $n (0 .. 4) { $array[$x+$n] = "//" . $array[$x+$n]; } } } open HAN, ">$file"; print HAN "@array"; close(HAN);