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";

##</code><code>##

The zip code 94563 is for the city of Orinda, which is in Contra Costa County, California.
94563 is for the city of Orinda,
94563 is for the city of Orinda,