satisfied perl critic