He's already doing that.

#!/usr/bin/perl
use strict;
use warnings;

sub XMLin {
    print "[$_[0]]\n";
}

my @data = ('C:\Program Files\Apache Group\Apache2\htdocs\legastronome
+\XML\Admin\coffee.xml');
my $xml = XMLin((join'', @data));
__END__
[C:\Program Files\Apache Group\Apache2\htdocs\legastronome\XML\Admin\c
+offee.xml]
[download]

His code at that point is indeed confused, but that's not the reason for his problem.