#!perl
use strict;
use warnings;

$_ = "a\x{2322}bcd\n";
print substr($_, 0, 3), "\n";