my $value = "1234";
( undef, $value ) = unpack "AA*", $value;
print $value, "\n";

##</code><code>##

my $value = "1234";
( undef, $value ) = split //, $value, 2;
print $value, "\n";

##</code><code>##

my $value = "1234";
$value = (split //, $value, 2)[1];
print $value, "\n";.

##</code><code>##

my $value = "1234";
$value = (unpack "AA*", $value)[1];
print $value, "\n";

##</code><code>##

my $data = "1234";
my $i = 0;
$data = join '', map { $i++ ? $_ : '' } split //, $data;
print $data, "\n";