Simple perl script that uses RegEx