#!/usr/bin/perl -w
    use utf8;
    use feature qw( say );
    use strict;

    my $NotEq = undef;
    say 'string equal undef' if $NotEq == 'something not undef';#