#!/usr/bin/perl
@ascii_codes = (153,154,169,171,187..214,224..254);
@funny_chars = split("", pack("C*", @ascii_codes));
 
@input = <>;
foreach $line (@input) {
    for ($x=0; $x<=$#ascii_codes; $x++) {
        $line =~ s/$funny_chars[$x]/&#$ascii_codes[$x]/g;
    }
    print $line;
}