my @field;

if ($text =~ /^(\d)(\d)/) {
  @field = ($1, $2);
}