#!/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";
  }
}