modified perl