@a=`factor`=~/ \d+/g; if(@a==0){ print"1 1"; }elsif(@a==1){ print"1@a"; }else{ print eval(join"*",@a[1..$#a]),$a[0]; }