#perl weekly challenge 373