I'm trying to fix without using subroutines

I also tried subroutines but didn't work for me

You should try using subroutines without calling exit 0; all over the place.

You can use return to exit a subroutine, but if you're dealing with a callback, as with File::Find, that won't work as find will just keep calling it, again, and again, and again, as it was designed to do.

To escape File::Find::find you'll have to use goto LABEL as in

find( ... sub { goto END_OF_FILE_FIND; } );
END_OF_FILE_FIND:  print "got 20 and quit\n";
[download]

You shouldn't use backticks all over the place, make a subroutine sub do_backup { and call it.

And you don't need to use backticks for everything, use abstractions (subroutines), see hostname site:perldoc.perl.org

If I were you, I would draw draw a plain ASCII diagram or flowchart of how this program is supposed to operate , it helps in organizing the program (what is a loop, what is a function ) -- it should be a statement of what you want to accomplish, it shouldn't reflect the peculiarities of how File::Find operates

You're making this a lot harder than it needs to be.

#!\Interwoven\TeamSite\iw-perl\bin\perl -w

use strict;
use warnings;
use diagnostics;

# 
# Purpose: Crawl directories recursively
# 
# Description: This script counts all files within directories and ren
+ame appropriate files respectively.
#
# Author: 
# 

use Cwd; # module for finding the current working directory

use File::Find;  # a core module (no installation needed) #

# The location of the PERL executable
my $iwperl = "c:\\perl\\bin\\perl -pi.bak -e";
# my $iwperl = "E:\\Interwoven\\TeamSite\\iw-perl\\bin\\iwperl -pi.bak
+ -e";

my @root= (
## Workareas ###
"Y:\\default\\main\\test.com\\WORKAREA\\www\\templatedata",
);  #an array of starting directories

my $final_total = 0; # final sum of total files
my $dummy = ""; # <enter> to start program

# run process
my $run = "";

# simulation mode yes (files not modified) or no (files modified)
my $sim = "";

# get hostname
my $hostname_cmd = "hostname";
`$hostname_cmd`;
my $hostname = `$hostname_cmd`;
chomp $hostname; # remove carriage return from hostname cmd

# Verify correct server
# if ($hostname eq "AUTO-CMS") {
    # call starting sub to begin process on correct serer
    &press_enter;
} else {
    # Process terminated, incorrect server
    print "\nReplace production hard code references on global test se
+rver process not executed, incorrect server \"$hostname\". Should onl
+y run process on global test server \"AUTO-CMS\".\n"; 
}

my $date = localtime;
$date =~ s/\b(\d)\b/0$1/g; #pad single digits with zero
                           #this seemed to be a requirement for some
                           #reason

my %options = (preprocess =>\&new_dir, wanted=>\&wanted);

## just to make sure the file is emptied before we start
my $output_file = qq|C:\\tmp\\prod_ref_results.txt|;
open(MYFILE, ">$output_file") || die "opening $output_file: $!";  # ov
+erwrite

# program started
if ($run =~ m/y|Y|yes|YES/) {
    print MYFILE "Replace production hard code references on test serv
+er process started $date\n";
    print MYFILE "----------------------------------------------------
+-------------------------------------------------\n";
    print "\nReplace prod hard code references on GT process started $
+date\n";
    print "-----------------------------------------------------------
+---------\n";

    foreach(@root) {
        print "Scanning directory: $_\n";
        print MYFILE "Scanning directory: $_\n";
        &ScanDirectory($_);
    }    
        
    find ( \%options, @root);
END:
    print "FINAL TOTAL FILES MODIFIED: $final_total\n"; # return total
+ files per directory
    print MYFILE "FINAL TOTAL FILES MODIFIED: $final_total\n"; # retur
+n total files per directory
} 

close MYFILE;

####################################################
# put up a message and wait for user to press ENTER
####################################################
sub press_enter
{
    print "\nThis process replaces prod hard code references on test. 
+When run in simulation mode files are not modified, in non-simulation
+ mode files are modified. A report is created on screen and a more de
+tailed report in output file \"C:\\tmp\\prod_ref_results\.txt\"\. To 
+stop program execution press ctrl c.\n\n";
    print "Press Enter to Continue . . .\n";
    $dummy = <STDIN>;    
    get_yes_no();
} # End of sub press_enter {

#####################################################################
# get user response to 1st question (Run process in simulation mode)
#####################################################################
sub get_yes_no
{
    print "Run process in simulation mode, files will NOT be modified\
+?\n";
    print "yes/no (y/n)\n";
    chomp ( my $res = <STDIN>);            
    if ($res =~ m/n|N|no|NO/) {
        get_yes_no2();
    } elsif ($res =~ m/y|Y|yes|YES/) {
        print "Process running in simulation mode, files will NOT be m
+odified . . .\n";
        $sim = "yes";
        $run = "yes";
        return $sim;
        return $run;
    } else {
        print "Inappropriate answer, process terminated.\n";
        exit 0;            
    }
} # End of sub get_yes_no {

######################################################################
+###
# get user response to 2nd question (Run process in non simulation mod
+e)
######################################################################
+###
sub get_yes_no2 {
    print "Run process in non simulation mode, FILES WILL BE MODIFIED\
+?\n";
    print "yes/no (y/n)\n";
    chomp ( my $res = <STDIN>);        
    if ($res =~ m/n|N|no|NO/) {
        print "Process running in simulation mode, files will NOT be m
+odified . . .\n";
        $sim = "yes";
        $run = "yes";
        return $sim;
        return $run;
    } elsif ($res =~ m/y|Y|yes|YES/) {
        print "Process running in non simulation mode, FILES WILL BE M
+ODIFIED . . .\n";
        $sim = "no";
        $run = "yes";
        return $sim;
        return $run;
    } else {
        print "Inappropriate answer, process terminated.\n";
        exit 0;            
    }        
} # End of sub get_yes_no2 {

sub ScanDirectory {
    my ($path) = shift; 
    my($startdir) = &cwd; # keep track of where we began
    chdir($path) or die "Unable to enter dir $path:$!\n";
    opendir(DIR, ".") or die "Unable to open $path:$!\n";
    my @names = readdir(DIR);
    closedir(DIR);    
}

sub new_dir
{   
    my @files = @_;  # the readdir() output 
                    # contains both (files and directories)
                    
    my $num_files = grep{-f}@files; #-f are simple files    
    
    my $file_count = 0;    # add files
    my $total_count = 0; # total files
    
        # sort files 
        @files = sort(@files);
        
        foreach my $name (@files) {
        
            if (-d $name) {
                next if($name !~ m|(^[a-zA-Z0-9])|);
                next;
            }
        
            if (-e $name) {
                
                # skipped
                next if ($name eq "."); 
                next if ($name eq "..");    
            
                # $count++;

                open(WEBFILE, "$name") || die "opening $name: $!";  # 
+read
                my @file = <WEBFILE>;            
                close(WEBFILE);
                
                my @change_file = qw();
                my @pre_change_file = qw();
                my %file_seen;
                my $ctr = 0;
                foreach my $line (@file) {
                    $ctr++;
                    if($line =~ m|www\.test\.com|i || $line =~ m|24\.1
+30\.71\.100|i) {
                        push (@pre_change_file, "$name");
                        foreach my $pre_tag_file (@pre_change_file) {
                            next if $file_seen{ $pre_tag_file }++; #re
+move duplicate files
                                push(@change_file, $pre_tag_file);
                                
                            }
                        }
                    }
                }    
                
                foreach my $tag_file (@change_file) {
                        $file_count++;
                        if ($sim eq "no") {
                            my $replace_cmd1 = "$iwperl \"s|24.130.71.
+100|24.130.71.10|g\" \"$File::Find::dir\\$name\""; # replace "24.130.
+71.100" string cmd1 
                            `$replace_cmd1`; 
                            # print "replace_cmd: $replace_cmd1\n";
                            # print MYFILE "replace_cmd1: $replace_cmd
+1\n";
                            my $replace_cmd2 = "$iwperl \"s|www.test.c
+om|12.130.71.10|g\" \"$File::Find::dir\\$name\""; # replace "www.test
+.com" string cmd2
                            `$replace_cmd2`;    
                            # print "replace_cmd: $replace_cmd2\n";
                            # print MYFILE "replace_cmd2: $replace_cmd
+2\n";
                            # print "FILE MODIFIED: $File::Find::dir\\
+$name\n";
                            # print ".BAK FILE DELETED: $path/$name\.b
+ak\n\n";
                            # print MYFILE ".BAK FILE DELETED: $path/$
+name\.bak\n\n\n";
                            unlink("$File::Find::dir\\$name\.bak"); # 
+delete .bak file created from replace cmd1 and cmd2
                        }
                        print MYFILE "FILE MODIFIED: $File::Find::dir\
+\$name\n";
                        $total_count = $file_count;
                        # print "totalcount: $total_count\n";
                }
            }
        }
    if ($file_count > 0) {
    
        # sum all files modified in all directories
        $total_count += $file_count;
        
        print "total files modified in \"$File::Find::dir\" directory:
+ $file_count\n"; # return total files per directory
        print MYFILE "total files modified in \"$File::Find::dir\" dir
+ectory: $file_count\n"; # return total files per directory
        
        if ($total_count > 5) {
            goto END;
        }
    }
    return @files;   #return the list to continue processing
}

sub wanted
{
    # not used here, but dummy sub is needed for syntax
    # this routine is called for each file/directory
    # if we wanted to do something special for each one
    # maybe get a size or whatever...

    # the full path name of this file would be in $File::Find::name 
}
[download]

Thanks for your reply guys. However, My server doesn't have slurp.pm so I cannot use this solution because server admin probably will not want to install this module for my work. I tried goto LABEL but count is not correct, code is not breaking out of directory at file count. It's breaking out at directory with filecount. Hence it shows total count as of file directory reached where filecunt exist.

Please see Yes, even you can use CPAN.

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'