$ perl -le '
> $s = q{</State><Zip>xyz</Zip><Country>US</Country>};
> if ( $s =~ m{/<Zip>(.*?)</Zip>} )
> {
>     print qq{Found $1};
> }
> else
> {
>     print q{No match};
> }'
Found xyz
$