Perl %%*0