my @replace = (['<Tab>',      "\t"],
               ['<Numpad_3>', "\n"],
               ['pad_3',      "\n"],
               ['etc',        "etc"]);

# ... later in loop
   foreach my $aref (@replace) {
      $tracknumber =~ s/$aref->[0]/$aref->[1]/g;
   }