print for $dom->find(q{ substring(//p,1,4) });