(@c) = $block =~ /(\d{14})(\d\d)(.*)/;

##</code><code>##

(@c) = $block =~ /(\d{14})(\d\d)([ -z]*)/;

##</code><code>##

Two names: 'F#maj13/Eb      ', 'Gbmaj13/Eb      ' for         D#/Eb4, F#/Gb4, A#/Bb4, F5,