perl gets me