#!/bin/perl

my $file='regex.txt';
 open my $fh, "<", $file
    or die "could not open $file: $!";
while (<$fh>) {
  chomp;
  if (  /(.*?)\s?(Transcribed|Arranged)?,\s+For\s+([^(,]+),?(.*)/) {
     print "$1$4\n";
     print STDERR "# Instrument: $3 T/A:$2\n";
  }
}


##</code><code>##

Tirana Alla Spagnola (Rossinizzatta)(Péchés De Vieillesse, Book 1), Qr Iv/30
À La Chapelle Sixtine, S 360 (Lw G26)
All Through The Night, Traditional Welsh Song