# slice out the appropriate part of the string
($string) = $string =~ /(><a name = $id>.*?<\/pre>)/s;