#!perl -pl use bigint;$_=Math::BigInt->new($_)->bfac()