use strict;
use warnings;
use encoding 'utf8';
use Encode;

my $raw = encode('cp1250', 'í');
my $letter = decode('cp1250', $raw);
if ($letter eq 'í') { print "yes\n" } else { print "no\n" }
if ($letter =~ /í/) { print "yes\n" } else { print "no\n" }

__OUTPUT__
yes
no