#!/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;

##</code><code>##

$VAR1 = [
          'Hi i am a contnous <text> Stop',
          'I ha've no',
          'idea whats',
          'wrong',
          'grr'
        ];

##</code><code>##

$VAR1 = [
          'Hi i am a continous <text> Stop',
          'I have no',
          'hats',
          'wrong',
          'grr'
        ];