my $name = '012345';
my ($three) = $name =~ /^(\d\d\d)/;