Replace_perl

gistfile1.txt

#!/usr/bin/perl

use File::Find;

# Prepare folder paths
my @array_folder_path = ("./asc");

find(\&find_file_callback, @array_folder_path);

sub find_file_callback
{
    unless (-d)
    {
        next if ($File::Find::name !~ /\.asc$/i);
        my 	$data = read_file("$_");
        
        		$data =~ s/Have a wonderful day!/Good luck to you/g;
			$data	=~ s/ XX55/ YY66 /gi; 
  					
        write_file("$_",$data);
        print "$File::Find::name\n";
    }
}

sub read_file {
    my ($filename) = @_;

    open my $in, '<:encoding(UTF-8)', $filename or die "Could not open '$filename' for reading $!";
    local $/ = undef;
    my $all = <$in>;
    close $in;
    return $all;
}

sub write_file {
    my ($filename, $content) = @_;

    open my $out, '>:encoding(UTF-8)', $filename or die "Could not open '$filename' for writing $!";;
    print $out $content;
    close $out;

    return;
}