Ленивый программист, столкнувшись с задачей поменять тональность в записи, подобной

  D                 A       D     G     A     D
|-------------------------|-------------------------|
|-------------------------|-------------------------|
|-5-----------5-----------|-5-----------------5-----|
|-------5-----------5-----|-------3-----5-----------|
 
Verse: 'They've got cars big as bars...'
 
  D     A     Bm    G       D                 A
|-------------------------|-------------------------|
|-------------------------|-------------------------|
|-5-----------2-----------|-5-----------5-----------|
|-------5-----------3-----|-------5-----------5-----|

не идёт вспоминать сольфеджию, а пишет однострочную команду:

perl -ple 's/-(\d+)/sprintf("-%d", $1-2)/ge;s/\b([A-H])(m?)\b/sprintf("%s%s", chr(ord($1)-1), $2)/ge;s/ @( |$)/ G$1/g' d-tab.txt > c-tab.txt