use strict;
use warnings;

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

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

##</code><code>##

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

##</code><code>##

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