i am putting ^M to test my code but it doesnt work on windows i can check for presence of ^M in file on unix but when i transfer the same file on windows with the same perl code ( but perl here is windows version of perl ) it doesnt work .
i have tried following ways to filnd ^M ...( all works on unix but not on windows )

Code:

if ($_ =~ /\cM/) ;
if ($_ =~ /\015/) ;
if ($_ =~ /\x0D/) ;
if ( $_ =~ /^M/ ) ;

lets see if its possible by any other way .... i will post the answer it if i am able to solve this