my $phone = "555-4587"; $phone =~ /(\d\d\d)/; my $first_three = $1;