my ($first_three) = $phone =~ /(\d{3})/;