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