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