perl Period