use warnings;
use strict;

# Get the input
print "\nEnter the power: ";
chomp(my $power = (<STDIN>));
if (($power =~ /\D/) or ($power == 0) or ($power > 9)) {
    die "Error: $power is not a positive integer less than 10";
}

# Do the work
my $result = binomial_power(1, $power, 1);

# And print it out
print "The result is: \n(x + y)^$power = $result\n";


sub binomial_power {
    my ($c, $xp, $yp) = @_;
    my $result = $c . "x^" . $xp . "y^" . ($yp - 1);
    $result =~ s/1x/x/g;
    $result =~ s/([xy])\^1/$1/g;
    $result =~ s/[xy]\^0//g;
    if ($xp > 0) {
        $result . " + " . binomial_power((($c * $xp)/$yp), ($xp-1), ($yp+1));
    }
    else {
        return $result;
    }
}