add perl method. update align snippet