P:\test>findstr # LR-nearFactor.pl
#!/usr/bin/perl
#    my $sqrt = sqrt( $N );
    my $end = $#factor;
        return $f ; #< $sqrt ? $f : undef;
            splice(@subset, $#subset - 1, 1);
            splice(@subset, $#subset - 1, 2, $pos);

P:\test>LR-nearFactor.pl 24777695232
11
1
P:\test>findstr # LR-nearFactor.pl
#!/usr/bin/perl
    my $end = $#factor;
            splice(@subset, $#subset - 1, 1);
            splice(@subset, $#subset - 1, 2, $pos);

P:\test>LR-nearFactor.pl 24777695232
11
1