#!/usr/bin/perl

use strict;

my $non_ascii = 0;
while (<>) {
    $non_ascii++ if ( /[^\x00-\x7f]/ );
}
warn "input contains non-ASCII\n" if ( $non_ascii );