my $x = <STDIN>;
print "String\n" if ($x =~ /\w/);
print "Integer\n" if ($x =~ /\d/);
print $x**$x ."\n";

__OUTPUT__
e
String
Argument "e\n" isn't numeric in exponentiation (**) at tmp.pl line 13, <STDIN> line 1.
1