Kak vo vseh failah v papke pomeniati odni i te je stroki?

Kak vo vseh failah v papke pomeniati odni i te je stroki? (v Perl) nachalo mojet biti tak?: print"vvedite puti k catalogu"; $iroot=; print"vvedite puti k finish-catalogu"; $froot=; print"vvedite text cotorii nado zaminiti"; $itext=; print"vvedite text dlia zameni"; $ftext=; chdir"iroot" || die "ne mogu pereiti v catalog $iroot" #perehod k katalogu opendir(DIR, "."); #otkrivaet catalog @files=sort(grep(/htm$/, readdir(DIR))); #citaet i sortiruet #vse faili *.htm v masiv @files closedir; foreach(@files) { ...??? } a dalishe???