while read A; do echo perl -e "$A"; time perl -e "$A"; done 2>&1 | grep -e perl -e real