Help for this page
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;