#!/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);