Shell Programming and Scripting

open(HANDLE,$cmp_path) ; #reading the xml file from the file path
           while($file_path = <HANDLE>)

if($cmp_path =~ m/\s+/g)#check for space
         {
          $cmp_path =~ s/\s+/\\ /g;#replace space by slash
         }
         if($cmp_path =~ m/\&/g)#to check for &
         {
          $cmp_path = s/\&/\ /g;#replace & by \ to open directory
         }

"werwdfeioutyh rew425-fddf 3425.xml"

werwdfeioutyh\ rew425-fddf\ 3425.xml

#!/usr/local/bin/perl

use strict;
use warnings;

my @files;

# following line collects all xml file names from the current directory,
# including those with whitespaces and puts them in an array
push @files, $_ for glob("*.xml"); 

# following loop will open every file from the files array, print filename, print content.
foreach (@files) {

  open(IN,"$_");
  my @data=<IN>;
  close(IN);

 print "file $_ has this content:\n @data\n"
}