/([perl]).*(?!\1)([perl]).*(?!\1)(?!\2)([perl]).*(?!\1)(?!\2)(?!\3)([perl])/