#!perl
s//%/e;
}