$work =~ / (\b(?:Transcribed|Arranged),\b? For [^,^\(^#^-]+)/ )