UPDATE channel SET channum="101",xmltvid="9601.dvb.guide" WHERE callsign="RTE One"); 

##</code><code>##

#!/usr/bin/perl
use v5.14;
use warnings;

until(eof()) {
    my ($id, $chan) = <> =~ /id="([^"]*)".*number="(\d+)"/;
    my ($sign) = <> =~ />(.*)</;
    <>; # Skip </channel>

    say qq(UPDATE channel SET channum="$chan",xmltvid="$id" WHERE callsign="$sign");
}

##</code><code>##

channel id="9001.dvb.guide" <!-- number="65535" type="0x95" flags="0xffff" bouquet="4109" region="0" sid="9001" -->>
	<display-name>[65535.9001.(null)]</display-name>