perl color