sini@ordinalfabetix:~$ ./x.pl
enter the path
\home\sini\x.pl
/home/sini/x.pl

#!/usr/bin/perl
 #
  use strict;
 use File::Path;
 use File::Basename;
 print"enter the path\n";
 my $ans=<STDIN>;
 #$ans=C:\Users\rak\Desktop\tax.txt chomp($ans);
 my $path= dirname($ans);#I dont have to use this I know.I am just checking here.
 my $file= basename($ans);#I dont have to use this I know.
 $ans=~ s/\\/\//gi;#All my file open statements worked well #with c:/bla/bla instead of c:\bla\bla;
 print $ans; #to make sure that I am replacing all "\" with "/";
 open(FH,"<$ans") or die $!;
 my @lines=<FH>;
 print "\n@lines-bla\n";#bla is to check the print statement:Just prints bla there,not printing file contents;
-bla
sini@ordinalfabetix:~$