Help for this page
(@c) = $block =~ /(\d{14})(\d\d)(.*)/;
(@c) = $block =~ /(\d{14})(\d\d)([ -z]*)/;
Two names: 'F#maj13/Eb ', 'Gbmaj13/Eb ' for D#/Eb4, +F#/Gb4, A#/Bb4, F5,