Works for me:

#!/usr/bin/perl

use strict;
use warnings;

my $text = "\\alpha";
$text =~ s/\\alpha/\x{03B1}/g;
binmode STDOUT, ':encoding(utf8)';
print "$text\n";
[download]