Sorry for the delay, I've been busy with university. I appreciate all the reply's, i have learned a lot. Anyway, i ended up taking the easy way out just to get things working. Here's my code for who ever might be interested!

 #!/usr/bin/perl -w

use strict;

while(<>)
{
        if(m/\s*\ \w+ 
        \ (\w+|
        \w+\ \w+|
        \w+\ \w+\ \w+) 
        \ (?=\1)/x)
        {
                $_ =~ s/$1//;
                print;
        }
}
[download]