if ($string =~ m/^00[0-9]/) {
  # ...
}
elsif ($string =~ m/^0[0-9]{2}/) {
  # ...
}
elsif ($string =~ m/^[0-9]{3}/) {
  # ...
}