Thanks everyone. I could manage to do it by splitting the input elements and using $1, $2 and the generic $_.

 if ($word =~ m/(.*)\<(.*)\>/){
            chomp;
            push @array,$1;
            }
            else {
            push @array,$word;
            }
[download]

I then proceed and compare the array elements once this formatting is done.