#! 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;