#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use utf8;
my $utf8 = '堕落';
sub fallback{
    sprintf "\\x{%x}", shift;
}
print encode('ascii', $utf8, \&fallback), "\n";