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

sub parse {
   my $flatfile = shift;
   my %replace = ('<Tab>'      => "\t",
                  '<Numpad_3>' => "\n",
                  'pad_3'      => "\n",
                  'etc'        => "etc",
                 );
   my @delete  = ('<Tab>',  '<Up>',   '<Down>', 
                  '<PgUp>', '<Num_',  '<Num', 
                  '<Nu',    'etc',    'etc',
                 );
   #open(CLOG, "<$flatfile") 
   #   || die ("Cannot open $flatfile for reading... $!\n");
   #foreach $tracknumber (<CLOG>)    {
   foreach my $tracknumber (<DATA>)    {
      for my $chr ('0'..'9', '-', '/', '.') {
         $tracknumber =~ s/<Num_($chr)>/$chr/g;
      }
      for (keys %replace) {
         $tracknumber =~ s/$_/$replace{$_}/g;
      }
      for (@delete) {
         $tracknumber =~ s/$_//g;
      }
      #open(OUTPUT, "+>>$output") 
      #   || die ("Cannot open output file$!\n");
      #print OUTPUT "$tracknumber";
      #close OUTPUT;
      print "$tracknumber";
   }
   #close CLOG;
}

parse('somefile');

__DATA__
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_.>