perl -MO=Terse -e '/x/; /x/;'

 perl -MO=Terse -e '/x/ for 1, 2'