I know this is off topic, but I got this exact question as a perl programming test at a job interview for a senior perl developer. (There where other harder problems as well).

I found it easy, and got the job. I found out afterwards that some of the other candidates failed to answer this question, despite claiming many years of perl experience.