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};