use 5.018; use diagnostics; use utf8; # this tells perl that the source code is in utf-8 use open qw( :encoding(utf-8) :std ); # perl will try to open everything in utf-8 mode by default