my $string = 'abcdefghijklmnopqrstuvwxyz';
my $count  = $string =~ s/(.{2})/$1\t/g;
print $count, " Änderungen\n";