$\ = "\n" ; 
$, = "\t" ;
#$|=1;
use strict;
use warnings;
use POSIX qw[ _exit ];
use MIME::Lite;
use Sort::External;
use Net::Ping;
use Win32::DriveInfo;


$source="C:\shyam\dir1;

$sym="\";

$file="dir2"; ## please note that this value is not directly assigned but being extracted from another directory path using slicing.Ex: C:\sundar\dir2

$source_mod=join '',$source,$sym,$file;

print "$source_mod";

Note: I have also used . opeartor but result is still the same.I am suspecting about $\="\n" in the beginning.But this is required as the other part of my program needs this.

Please help