Select Code to Download

perl -pe 's/\&\#(\d+);/sprintf("%4.4x ",$1)/ge' < your.post

0a0d 2f00 2a00 2a00 2a00 2a00 2a00 2a00 2000 0900 0d00 0d00 
    Marina Motchkina 
...
0a0d 0900 5300 5100 4c00 2000 6600 6f00 7200 2000 4400 7800 7800 7800 
+2000 6300 6f00 6d00 7000 6f00 6e00 6500 6e00 7400 7300 0d00 0d00 
 ******/
...

    my $text .= concatenate_string_to_insert(); # documentation header
    %text .= "as\n";

    while (defined($line = <OLD>) ) {
       ...
           chomp $line;
           $line .= <OLD>;