if ( $doc =~ m/a:b>(.*?)</)
{
$data = $1;
}