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