#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @mail = ('Hi i a=','m a cont=','inous <tex=','t> Stop','I ha=','ve no','idea w=','hats','wrong','grr');

my $i = 0;
my $y = 0;
while ($mail[$i]) {
#print Dumper \@mail, $i;
        $y = $i + 1;
        while ($mail[$i] =~ s/=$//) {
                $mail[$i] .= $mail[$y];
                my @tmp = splice (@mail,$y,$y); 
                print Dumper \@tmp;
        }
        $mail[$i] =~ s/&lt;/</g; #Some other stuff I need to do
        $mail[$i] =~ s/&gt;/>/g; 
        $i++;
}
print Dumper \@mail;