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

##</code><code>##

$_ = 'aaa%bbbbb%cccccc%ddd';
print $-[0], ' ' while /%/g;
print $/'