#!/usr/bin/perl -w

use strict;
while(<>) {
        chomp;
        next unless($_ =~ /\|/);                   #Skip if no pipe symbol
        my @fields = split '\|', $_;
        $fields[0] =~ s/^>//;                      #Remove leading angle-bracket
        print $fields[0], " == ", $fields[1], "\n";
}