Shell Programming and Scripting

$cat -v texx
hi ^M
what are you
tying to ^M
do
$
$te.pl texx
hi i am
tying to
$
$cat te.pl
#! /usr/bin/perl
while (<>) {
       print if $_ =~ /\cM\n/g;;
}
$

while (<>) {
   print "Line number $. has ^M in it\n" if ($_ =~ /\cM/);
}

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

@line_array = () ;
open (FILE,"<$ARGV[0]") or die "cant open file :$! \n" ;
while (<FILE>) {
     binmode(FILE) ;
     $line1 = unpack("H*", $_) ;
     #print "[$line1]\n" ;
     if ( $line1 =~ /0d/ )
     {
	push @line_array , $. ; 
     }
}
close FILE ;
print "file has \'cntl-M\' please check\n" if ( ( $len = @line_array ) >= 1 ) ;