use utf8; my $Ā = 5; print $Ā;