#!/usr/bin/perl

use warnings;
use strict;

use Inline 'C';

my $text = "ASCII-Wort";
my $umlaute = "Ölmüller";
my $euro = "\N{EURO SIGN}";

print checkBeyondOrd($text) . "\n";
print checkBeyondOrd($umlaute) . "\n";
print checkBeyondOrd($euro) . "\n";
 
__END__
__C__
 
int checkBeyondOrd(char *a) {
    while (*a != 0) {
        if (*a < 0) {
            return 1;
        }
        a++;
    }
    return 0;
}