use strict;
use warnings;
use charnames qw(:full);

binmode STDOUT, ':encoding(UTF-8)';
my $filename = 'test.txt';

if (@ARGV) {
    open my $handle, '>:encoding(UTF-8)', $filename
        or die "Can't write to file '$filename': $!";
    print $handle <<"OUT";
The next line
contains a\N{MODIFIER LETTER GLOTTAL STOP}
Really!
OUT
    close $handle or warn $!;
} else {
    open my $handle, '<:encoding(UTF-8)', $filename
        or die "Can't open file '$filename' for reading: $!";
    for (<$handle>) {
        print if /\N{MODIFIER LETTER GLOTTAL STOP}/;
    }
    close $handle;
}