Select Code to Download

my $numeric_string = '0010030511';
my $first_three_digits;
$first_three_digits = $1 if $numeric_string =~ s/^(\d{3})//;

my @numeric_string = split//, '0010030511';
my $first_three_digits = join '', splice @numeric_string, 0, 3;