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

##</code><code>##

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