if ($data =~ m|<REDIRECTURL>(.*)</REDIRECTURL>| ) {
print "Found: $1\n";
}