$ cat spw822595.inp
<MyId><data>1332</data><blarg>burfle bof
bip blech</blarg></MyId><MyId><data>1332</data><spu>hsh wugw </spu>
<spog>uh wef wegf</spog></MyId>
<MyId><data>1332</data><grop>hd wg fw we we we we
eryer efy we dad</grop></MyId>
$

##</code><code>##

use strict;
use warnings;

my $inFile = q{spw822595.inp};
open my $inFH, q{<}, $inFile
   or die qq{open: < $inFile: $!\n};
my $outFile = q{spw822595.out};
open my $outFH, q{>}, $outFile
   or die qq{open: > $outFile: $!\n};

{
    local $/ = q{</MyId>};
    while ( <$inFH> )
    {
        tr{\n}{}d;
        print $outFH qq{$_\n} if $_;
    }
}

close $inFH
   or die qq{close: $inFile: $!\n};
close $outFH
   or die qq{close: $outFile: $!\n};

##</code><code>##

$ cat spw822595.out 
<MyId><data>1332</data><blarg>burfle bofbip blech</blarg></MyId>
<MyId><data>1332</data><spu>hsh wugw </spu><spog>uh wef wegf</spog></MyId>
<MyId><data>1332</data><grop>hd wg fw we we we weeryer efy we dad</grop></MyId>
$