#!/usr/local/bin/perl use v5.14; use bignum; use Math::Prime::Util qw/:all/; say for factor(280671392065546467397265294532969672241810318954163887187279320454220348884327);