use v5.20;
my $s = "The zip code 94563 is for the city of Orinda, which is in Contra Costa County, California.";
say "$s";

my ($zip, $words) = $s =~ m/ (\d+) \s+ ( (\w+[.,;\s]?)+ ) /x;

say "$zip $words";
say "$1 $2";