@zips = ( ); # Ensure the array is empty while (m/(\d\d\d\d\d)/g) { $zip = $1; if (substr($zip, 0, 2) eq "44") { push @zips, $zip; } } ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl