Select Code to Download

#!/usr/bin/perl -w
use strict;

...
Since I have no idea what keylogger data looks 
<Tab>like,<Up> I'll just <PgUp> have to fudge 
<Tab>up<Down> something <Num_4> a test<Num_.>

my @replace = (['<Tab>',      "\t"],
               ['<Numpad_3>', "\n"],
               ['pad_3',      "\n"],
...
   foreach my $aref (@replace) {
      $tracknumber =~ s/$aref->[0]/$aref->[1]/g;
   }