use Sys::Mmap;

my $size = (stat $file)[7];
new Mmap my $data, $size, $file or die "Couldn't map $file: $!\n";

$data =~ s/xyz/abc/;
# edit: oder wenn nur einzelne Zeichen ersetzt werden sollen:
$data =~ y/a/b/;