There's some stuff there I haven't seen before, but perhaps this might at least get you moving forward:

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