Perl - Remove polish characters from UTF-8 string

utf8-polish.pl

    use utf8;
    use Encode qw(decode encode);
    
     # Source code should be saved in UTF-8 encoding 
     
    my $sting = 'ąćźłóżęĄĆŹŁÓŻĘ'; 
    
    my $nonUTF = encode("UTF-8", $sting); 

    my $filters = {
			"\xC4\x85" => 'a', # ą
			"\xC4\x87" => 'c', # ć
			"\xC4\x99" => 'e', # ę
			"\xC5\x82" => 'l', # ł
			"\xC5\x84" => 'n', # ń
			"\xC3\xB3" => 'o', # ó
			"\xC5\x9B" => 's', # ś
			"\xC5\xBA" => 'z', # ź
			"\xC5\xBC" => 'z', # ż
			
			"\xC4\x84" => 'A', # Ą
			"\xC4\x86" => 'C', # Ć
			"\xC4\x98" => 'E', # Ę
			"\xC5\x81" => 'L', # Ł
			"\xC5\x83" => 'N', # Ń
			"\xC3\x93" => 'O', # Ó
			"\xC5\x9A" => 'S', # Ś
			"\xC5\xB9" => 'Z', # Ź
			"\xC5\xBB" => 'Z', # Ż
		};
    
		foreach $from (keys %{$filters}){
			my $to = $filters->{$from};
			$nonUTF =~ s/$from/$to/;
		}
    
    print $nonUTF; # aczlozeACZLOZE