my $flat = chr( charnames::vianame(qq(MUSIC FLAT SIGN)) );

print qq(b$flat);