C:\>perl
$zeile = 'ABCD';
$zeile =~ s/([A-Z]{2})/($1)/g;
print $zeile;
^Z
(AB)(CD)