$0=p,$_=p,v int$_/$0,$_%$0if/e/;
---
v int($_=p)/($0=p),$_%$0if/e/;