open my $fh, '<:binary', $filename  or die $!;
my $text = do { local $/ = undef; <$fh> };
close $fh  or die $!;

substr $text, 500, 0, 'eingefügter text';

open my $fh, '>:binary', $filename  or die $!;
print {$fh} $text  or die $!;
close $fh  or die $!;