#!/usr/bin/perl -w
use 5.010;
use strict;
use warnings;

open (FINDIT, "find /home/auu/Documents/js -name '*.js' -type f -print |") || die "Couldn't execute find!\n";

while (my $filename = <FINDIT>) {
open (TABLETKA, "+<$filename") || die "Can't open a file $filename: $!\n";
my @lines = <TABLETKA>;
foreach (@lines) {
print "$filename is cleaned\n" if s{(\;do.*)(</iframe>'\);)}{\; //eof};
}
seek(TABLETKA,0,0) || die;
print TABLETKA @lines;
close (TABLETKA);
}