Create perl.py

Fix this code so the output isn't ugly~
Merge pull request #4 from Juboo/patch-4

Created perl.py