ridiculous perl