my ($number) = $str =~ m{<customer_id>([0-9]{7})</customer_id>};