$msg = Mail::Internet->new([ <> ]);
$from = $msg->get('From');
$msg->combine('To');
$to = $msg->get('To');
$subject = $msg->get('Subject');
$body = $msg->body();

foreach (@$body){
        if (($_ =~ $x) or ($_ =~ $y)){
           chop $_;
           $array[9][1] = $_;
        }
}

##</code><code>##

$i++;
$array[9][1] = $body[$i];