#!/usr/bin/perl
use strict;
use warnings;

while(<>) {
        my $line = $_;
        if ($line =~ /^[\w\ \-]+$/) {
                print "STRAIGHT - ";
        }
        if ($line =~ /^[\w\ \-(?:\P{M}\p{M}+)]+$/) {
                print "OKAY\n";
        }
        else {
                print "BLAH!\n";
        }
}