perl -i.bar -CDS -pe ' \
    if (/^([^[:ascii:]])/) { \
        $_= sprintf("%04x",ord $1).$_ \
    }' pml.txt