#!/usr/bin/env perl 

# find_extended_chars.txt

# this script finds any non-alphanumeric characters, codes, etc in a
# given input file and prints the line & line number so that it can be
# changed.

use strict;
use Cwd;

foreach my $file (@ARGV) {
    my $error = 0;
    my $line = 1;
    open FILE, $file;
    
    while (<FILE>){
	if ($_ =~ m/[^[:ascii:]]/ ){
	    if (!$error){
		print $file."\n";
		$error = 1;
	    }
	    print $line. "\t".$_;
	}   
	$line++;
    }
}