while (<>) { 
    s/([\x80-\xff])/sprintf "\\x{%02x}",ord($1)/eg; 
    print; 
}

 
x{ef}\\x{bb}\\x{bf}

 
find |xargs /usr/local/bin/check_for_non-ascii_characters.sh  |grep -l 'x{ef}\\x{bb}\\x{bf}'

#!/usr/bin/perl 
# 
# 
 
$filename = $ARGV[0]; 
 
while (<>) { 
	if ( /^\xef\xbb\xbf\x3c/ ) { 
		print "$filename Invalid code!\n"; 
		`cp $filename /tmp/`; 
		next; 
	}

find /home/romild0/work/1.9/ -name *.php  -exec parse.pl {}  \;

#!/usr/bin/perl  
 
use strict; 
use warnings; 
use File::Find; 
use File::Copy; 
 
find(\&non_ascii, '/home/romild0/work/1.9'); 
 
sub non_ascii { 
   return unless $_ =~ /\.php$/; 
   open my $php, '<', $_ or warn "failed to open '$_' $!\n" and return; 
   while( my $line = <$php> ) { 
       if ( $line =~ /^\xef\xbb\xbf\x3c/ ) { 
           print "$File::Find::name Invalid code!\n"; 
           cp($_, '/tmp/$_'); 
       } 
   } 
}

while( my $line = <$php> ) {  
       if ( $line =~ /^\xef\xbb\xbf\x3c/ ) {  
           print "$File::Find::name Invalid code!\n";  
           cp($_, '/tmp/$_'); 
           return; 
       }  
   }