$y=1;($$_^=1)?($y*=$_):($y/=$_)for`factor`=~/ \d+/g;print$y