use strict;
use warnings;

my @bitter = ('x=y', 'z=p=q');

foreach (@bitter) {
    my ($first, $second) = split /=/;
    
    print ">$first< [$second]\n";
}

##</code><code>##

>x< [y]
>z< [p]