I wrote code as you show, but command line didn't give any result...
instead of my ($Кремль) = $mech->content =~ /(Кремль)/i; I wrote print $1,"\n" if $mech->content =~ /(Желаю.*)(\<.*)/i; Characters here not show as a Cyrillic.