file_filter

#!/usr/bin/perl
use strict;
use warnings;

# Use: cat file | ./filter.pl > new_file

while(<>) {
        if (/^(\w+(\\\w+)*)\\(\w+)\t(\w+)$/) {
                print "$1;$3;$4\n";
        }   
}