$work =~ / (\bTranscribed,\b?\bArranged,\b? For [^,^\(^#^-]+)/ )