!/usr/bin/perl -w

use strict;
my $vlnum = 0;
my $soln=0;

print "Insert a number: ";
chomp ( $vlnum = <STDIN> );
die "Not a number\n" unless $vlnum=~/^\d*$/;
my @digits=split //, $vlnum;
$soln += $_**@digits for @digits;

if($vlnum == $soln) {
print "$vlnum is a narcissistic number\n" }
else{
print  "$vlnum is not a narcissistic number!\n"
};