while ( $mycorpus{$filename} =~ /(?:title|text|comment):#(.*?)#/g ) {
    $dataset .= " $1 ";
}