Perl script/utility to change html page titles?

Borim se s Perlom ali bezuspesno....

Znate li za neku scriptu sa kojom bih mogao da promenim HTML page titles?

Potpis

And Now For Something Completely Different...

Evo ti dva scripta koja sam napisao pa ti koristi koji ti vise odgovara(drugi je kraci).Ako si pocetnik pretpostavljam da ce ti prvi script biti jasniji(ne koristi se Tie::File modul) ali medju njima nije neka velika razlika.

###############Prvi script################

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

my @file;
print "Unesi lokaciju stranice koju zelis da promenim:";
my $file=<STDIN>;
open(HTML,$file) or die "Nemogu da otvorim stranicu!!!\n";
while(<HTML>){
chomp;
push @file,$_;
if(/<title>/i){
until(/<\/title>/i){
$_=<HTML>;
chomp;
$file[$#file].=$_
}
print "Unesi novi title za stranicu:";
$_=<STDIN>;
chomp;
$file[$#file]=~s/(<title>).*?(<\/title>)/$1$_$2/;
undef $/;
push @file,<HTML>;
last
}
}
close HTML;
open(HTML,">$file") or die "Nemogu da editujem stranicu!!!\n";
print HTML join("\n",@file);
close HTML

##############Drugi script##################


#!/usr/bin/perl -w
use strict;
use Tie::File;

print "Unesi lokaciju stranice koju zelis da promenim:";
$_=<STDIN>;
chomp;
tie(my @file,'Tie::File',$_) or die "Nemogu da otvorim stranicu!!!\n";
foreach(1..$#file){
if($file[$_]=~/<title>/i){
until($file[$_]=~/<\/title>/i){
$file[$_].=$file[$_+1];
splice(@file,$_+1,1)
}
print "Unesi novi title za stranicu:";
my $title=<STDIN>;
chomp $title;
$file[$_]=~s/(<title>).*?(<\/title>)/$1$title$2/;
last
}
}
untie @file