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