perl -MR -ne 'print if _____'