#!/usr/bin/perl

use experimental 'smartmatch';
use open ':encoding(iso-8859-1)';
use POSIX 'locale_h';
use locale ':ctype';
setlocale(LC_CTYPE, 'en_US.iso88591');

open (FILE, '< s2') || die "Cannot open\n";

while (<FILE>) {
  chomp;
  print "--$_--\n";
  print "ends with x and optional y or z\n" if /x(y|z)?$/;
}
close (FILE);

##</code><code>##

flee
flex

##</code><code>##

--flee--
--flex--
Wide character (U+FFFD) in pattern match (m//) at ./fmin line 14, <FILE> line 2.
ends with x and optional y or z