!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; use XML::Dumper; use TAP3::Tap3edit; $Data::Dumper::Indent=1; $Data::Dumper::Useqq=1; my $dump = new XML::Dumper; use File::Basename; my $perl=''; my $xml=''; my $tap3 = TAP3::Tap3edit->new(); foreach my $file(glob 'X*') { my $files= basename($file); my $filename=$files.".xml\n"; print $filename; $tap3->decode($files) || die $tap3->error; $perl = $tap3->structure; $dump->pl2xml($perl, $filename); }