Help for this page
HANDEL => SL??HO LEHRER => OH??KN MOZART => NL??MZ CHOPIN => LK??DR
while (<>) { while (/\G(\W*)(\w)(\W*)(\w)(\W*)/gc) { ... } print $1 if /\G(.*\n?)$/gc; }