s/^.*(<.*>)//g;

##</code><code>##

<tag1> data <tag2> more data </tag2><tag2> even more data </tag2></tag1>

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use XML::Parser;

die "Usage: $0 file.xml\n" unless ( @ARGV == 1 and -f $ARGV[0] );

my $parser = new XML::Parser( Handlers => { Char => \&print_chars },
                              ProtocolEncoding => 'UTF-16',
                             );

$parser->parsefile( $ARGV[0] );

sub print_chars
{
    print pop;
}