if ( "$dir" =~ /.*\s+.*/ ) {
   @xlfiles = <"$dir*.xls">;
} else {
   @xlfiles = <$dir*.xls>;
}