use strict;
print "do you want to continue(y\/n):";
chomp (my $answer = <>);
my $name = "foo.txt";


if ($answer=~/y/i){

    my $first = "bar.txt";
    Edit($first);
}

elsif ($answer =~/n/i){
    exit
    }
    
    
    
###################################

sub Edit{
    
    my $nod = shift; ## so here i enterd the file i want to open 


open (NOD, "<", $nod)|| die "$!";           
open (NAMES, "<", $name) || die "$!";       
open (OUT, ">", "out.txt") || die "$!";     
                                            
...some proces...                           
                                            
close NOD;                                  
close NAMES;                                
close OUT;                                  
                                            
                                            
                                            
print "do you want to continue(y\/n):";     
chomp (my $change = <>);                    
                                            
if ($change =~/y/i){                        
                                            
                                            
                                            
print "what you wish to change:";           
                                            
chomp (my $cho = <>);                       
                                            
if ($cho){                                  
    open (SEC, "<", $nod)|| die "$!";         
    open (NEW, ">", "simon.txt") || die "$!"; 
                                              
    ... do something...                       
                                              
        print NEW "$_";                         
    }                                         
    close NEW;                                
                                              
    open (ADD, ">>", "simon.txt")|| die "$!"; 
    print ADD "\| -- -- --\|\n";              
    close ADD;                                
}                                           
                                            
elsif ($change =~/n/i){                     
    exit                                      
}                                              
                                            
                                            
print "one more time(y\/n):";               
chomp(my $a =<>);                           
                                            
if ($a =~/y/i){
    my $rr = "simon.txt"; #### and here if i choose to continue, want 
+to redo the proces but this time with this new file
    Edit($rr);
}

elsif ($a =~/n/i){
    last
}

}
[download]