use strict; 
use warnings; 
use POSIX "floor"; 
my $test = 487; 
print join( ' ', sfactor($test));  
 
sub sfactor { 
    my ($n) = @_; 
    my $m = floor sqrt( $n/2 ); 
    while ($m > 1) { 
        my $m2 = $m * $m; 
        if( !( $n % $m2 ) ) { 
            return $m2, $n/$m2; 
        } 
    $m-- 
    } 
    die "No factor is a perfect square\n"; 
}

use POSIX qw(floor); 
 
use strict; 
use warnings; 
 
my $test = 1048576; # 1024; 
 
printf "%s * sqrt(%s)", sfactor($test); 
 
sub sfactor { 
	my ($n) = @_; 
	my $m = floor sqrt $n; 
	while (1) { 
		my $m2 = $m * $m; 
		if( !( $n % $m2 ) ) { 
			return $m, $n / $m2; 
		} 
		$m--; 
	} 
}