in reply to Grabbing specific string from a line

XML::LibXML:
use XML::LibXML;
my $xml = XML::LibXML->load_xml( ... );
my $value = $xml->documentElement->getElementsByTagName("customer_id")
+->[0]->textContent;
print $value, "\n";

[download]

In Section Seekers of Perl Wisdom