use strict;
use warnings;
use XML::Twig;

my $file_in = shift;
my $twig= new XML::Twig(
    twig_handlers => { reference => \&reference }
);
$twig->parsefile($file_in);
exit;

sub reference {
    my ($twig, $refer) = @_;
    print $refer->text(), "\n";
}  

__END__
distdoc:archive/ArchiveDoc::Article/MTPW000020090731e57v004mr
distdoc:archive/ArchiveDoc::Article/MTPW000020090731e57v004mr