#!/usr/bin/perl -w

use warnings 'FATAL', 'all';
# Make every warning fatal.

use strict;
# Require strict checking of variable references, etc.

use utf8;
# Treat this script as encoded with UTF-8.

my $_ = 'abcdefg';
# Identify a string.

print 'Your string is ', (/[\7f-\x80]/ ? '' : 'NOT '),
	'matched by /[\7f-\x80]/', "\n";
# Report the result.