Altered the perl regex to look for both pl and pm extensions. TODO: Make this dependent on a 'file' result or something more legitimate than the name of the file