use strict;
use warnings;

open(FILE, ">:utf8", "a.txt");
print FILE "a\x{2322}bcd\n";
close FILE;

open(FILE, "<:utf8", "a.txt");
while (my $line = <FILE>) {
 	print substr($line, 0, 3);
}
close FILE;