$number = 42;
s/.*/"s||000$number|&&join'',reverse chop,chop,chop"/eieio;
print;