如何对文件内容以块儿的形式操作－请高手指点

apile

<VirtualHost 1.2.3.4>;
ServerName fox.com
................
.................
</VirtualHost>;

<VirtualHost 1.2.3.4>;
ServerName dog.com
................
.................
</VirtualHost>;

沒有環境.只能寫個大概
$/="";
$a = <$filehandle>;;
$/="\n";

$a=~s/<VirtualHost .*?>;.*?</VirtualHost>;/&text($1,$2)/esg;
sub text(){
  my($idx,$content) = @_;
  $hash{"$num=$idx"} = $content;
  $num++;
  return;
}

對%hash去做處理...因為我前面有加num..所以sort{$a cmp $b>;}
應該可以排序出來..
跟他要的不大依樣..只是個小示範