Нужно эти строки удалить, однако не понял как это сделать, ведь url в ссылках разный, а с регуляркой у меня почему-то не получилось подружиться в данном аспекте.
Помогите, кто может) Можно в любом другом IDE.
#! 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;