$text =~ s/\ζ/\x{03B6}/g;
use Data::Dumper;
$Data::Dumper::Useqq=1;
print Dumper($text);