use Encode; my $string = 'αινσϊ ρρρρ'; my $enc_string = encode('cp437', $string); print PRN $enc_string;