#!/usr/bin/perl

use strict;

@_ = <>;
$_[0] =~ s/^\s*\[patch.*?\]:?\s*//is;
$_[0] =~ s/\.$//is;
foreach (@_) {
	s/jengelh\@gmx.de/jengelh\@computergmbh.de/gs;
}
print join(undef, @_), $/;