{ local $/; open my $fh,'<',$html_file or die $!; my $content = <$fh>; close $fh< $content =~ s~()~$neues_html$1~; open my $wfh,'>',$html_file; print $wfh $content; close $wfh; }