got this fixed by doing the following

sub domainmd5 {
    my ($exp, $domainexp, $pathfile, $file) = @_;
    my (@md5subout, $md5subout);
    $exp->clear_accum();
    $exp->expect( $timeout, [qr/$domainexp/ => sub {my $exp1md = shift
+; $exp1md->send ("md5sum $pathfile\r");} ], );
    $exp->expect( $timeout, [qr/$domainexp/ => sub {my $exp1md = shift
+; @md5subout = $exp1md->exp_before(); } ] );
    my @splitarray = split (/[\r\n]+/, $md5subout[0]);  ### Multiple \
+r and \n detected in the output.
    my @greparray = grep ( /$file/, @splitarray );    
    my @foundmd5 = split(/ +/, $greparray[0]);
    $md5subout = @foundmd5[0];
print "Hier md5: $md5subout\n";
    return ($md5subout);
}
[download]