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

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

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

##</code><code>##

{
    print "Do you want to continue([yn]): ";
    chomp(my $answer = <STDIN>);
    Edit("bar.txt") if $answer =~ /^y/i;
    exit if $answer =~ /^n/i;
    redo;
}