find files with non-ascii content

gistfile1.txt

#!/usr/bin/perl

use strict;
use warnings;

use File::Find;

File::Find::find(
  sub {
    return unless -f;
    #refine further with a return unless /\.php$/ if desired
    return unless /\.(html|js|css|rb)$/;
    open my $fh, "<", $_
      or die "could not open $_";
    while (<$fh>) {
      my $offset = 0;
      for my $char (split //) {
        if (ord $char > 127) {
          printf "non-ascii char (%04x) in file %s on line %d position %d:\n%s\n",
          ord($char), $File::Find::name, $., $offset, $_;
        }
        $offset++;
      }
    }
  },
  @ARGV
);