>perl -wMstrict -le
"my @input = (
   'Tirana Alla Spagnola (Rossinizzatta), For Soprano & Piano (Peches De Vieillesse, Book 1), Qr Iv/30',
   'A La Chapelle Sixtine, Transcribed, For Orchestra, S 360 (Lw G26)',
   'All Through The Night, Traditional Welsh Song Arranged, For Mixed Voices',
   );
 ;;
 my $not_source = qr{ [^-,^(\x23] }xms;
 my $kruft  = qr{ \s* ,? \s* }xms;
 my $ar_tr  = qr{ Arranged | Transcribed }xms;
 my $at_for = qr{
   $kruft $ar_tr? $kruft For $not_source+ $kruft
   }xms;
 my $rx_title = qr{ (?! $at_for) . }xms;
 ;;
 for (@input) {
   print qq{[[$_]]};
   my ($title, $source) =
     m{ \A \s* ($rx_title+) $at_for (.*?) \s* \z }xms
     ;
   print qq{:$title:  :$source:};
   }
"
[[Tirana Alla Spagnola (Rossinizzatta), For Soprano & Piano (Peches De Vieillesse, Book 1), Qr Iv/30]]
:Tirana Alla Spagnola (Rossinizzatta):  :(Peches De Vieillesse, Book 1), Qr Iv/30:
[[A La Chapelle Sixtine, Transcribed, For Orchestra, S 360 (Lw G26)]]
:A La Chapelle Sixtine:  :S 360 (Lw G26):
[[All Through The Night, Traditional Welsh Song Arranged, For Mixed Voices]]
:All Through The Night, Traditional Welsh Song:  ::