2018-12-13T10:51:17 Raubtier

Code (perl): (dl )

$string =~ s/^.* \K [CBf]/K/xs;

Wenn man etwas captured nur um es dann wieder an die selbe Stelle zu packen, würde ich \K im Regex verwenden (seit Perl 5.10)... Das spart u.U. einige Klammernpaare. Ich nutze das mittlerweile sehr häufig.