I'm no good at Perl :sob: