akta perl or ( P.