https://dev.to/oldtechaa/perl-weekly-challenge-213-the-simple-and-the-hard-17o3