added my perl solution
added my test
Merge pull request #1 from ottxor/master

what I did today!