#! perl -sw
use strict;
local $\=$/; local $,=$/;

sub IsNarcissistic ($) {
my %narcissistic;
@narcissistic{do{local $/;split /\s/, <<'END';
4 5 6 9 93084 1741725 4210818 9800817 9926315 472335975
40028394225 42678290603 2 44708635679 49388550606 3 82693916578 534494836 54748
35641594208964132 35875699062250035 32164049651 146511208 94204591914 912985153
1517841543307505039 3289582984443187032 4498128791164624869 4929273885928088826
449177399146038697307 21887696841122916288858 63105425988599693916 7 8 88593477
28361281321319229463398 153 35452590104031691935943 370 4338281769391371 548834
174088005938065293023722 188451485447897896036875 239313664430041569350093 8208
1553242162893771850669378 3706907995955475988644380 1 4338281769391370 24678051
121204998563613372405438066 121270696006801314328439376 27907865009977052567814
128851796696487777842012787 27879694893054074471405 0 3706907995955475988644381
174650464499531377631639254 1550475334214501539088894 4422095118095899619457938
14607640612971980372614873089 28116440335967 1634 19008174136254279995012734740
19008174136254279995012734741 128468643043731391252 177265453171792792366489765
1145037275765491025924292050346 32164049650 371 1927890457142960697580636236639
2309092682616190307509695338915 21897142587612075 23866716435523975980390369295
186709961001538790100634132976990 24678050 407 17333509997782249308725103962772
186709961001538790100634132976991 4679307774 1122763285329372541592822900204593
1219167219625434121569735803609966019 92727 12639369517103790328947807201478392
12815792078366059955099770545296129367 8208 12679937780272278566303885594196922
115132219018763992565095597973971522400 115132219018763992565095597973971522401
END

}} = undef;
return exists $narcissistic{$_[0]};
}

print "Insert a number: ";
chomp ( my $vlnum = <STDIN> );

print IsNarcissistic($vlnum) ? "Is narc dude!" : "Try another number!";