Select Code to Download

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

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