/challenge-050/paulo-custodio/perl/