Замена кода в Dreamweaver, используя регулярное выражение
в дриме ctrl+F
найти 

<a[^<]+>(.+)</a>

заменить на $1
(не забудьте галку регулярное выражение)
Например, так:

#! perl -w
onclick="return hs.expand(this)">

open F, 'myfile'; @f=<F>; close F; 
open F, '>output_file'; 
foreach $str (@f) { 
  print F $str if $str !~ /\<a\shref\=\"www\.comgun\.ru\/uploads\/posts\/.+\.jpg\"\sonclick\=\"return\shs\.expand\(this\)\"\>/ 
} 
close F; 
