parse perl