#!/usr/bin/env perl use strict; use warnings; my $n = <>; chomp $n; my $c = 0; my %h; for (my $i = 1; $i < sqrt($n); $i++) { if ($n % $i == 0) { $h{"$n$i"} = 1; $h{"$i$n"} = 1; } } my $nn = int(sqrt($n)); if ($nn * $nn == $n) { $h{"$nn$nn"} = 1; } print int(keys %h);