$_=q(aaa%bbbbb%cccccc%ddd);
print tr/%//, $/;