Re: Can this be rewritten better?

Scott Bryce wrote: 
Nikos wrote:

Nikos wrote:

my $script = param('select') or "Áñ÷éêÞ Óåëßäá!"; 

I meant [snip] the rest!

here is the code so far that i want to be rewritten in a better shorter way!

my $script = param('select') or "Áñ÷éêÞ Óåëßäá!";

$sth = $dbh->prepare( "SELECT host FROM guestlog" );
$sth->execute();

my $hostmatch;
while( $row = $sth->fetchrow_hashref ) {
    if( $host eq $row->{host} ) {
        $hostmatch = 1;
    }
}

my ($data, @data);
if( param('select') and param('select') !~ /\.\./ )
{
    open(FILE, "<../data/text/$script.txt") or die $!;
         @data = <FILE>;
    close(FILE);

    $data = join('', @data);

$dbh->do( "UPDATE guestlog SET script='$script' WHERE host='$host'" ) or die $dbh->errstr;
}
elsif( $hostmatch == 1 )
{
$dbh->do( "UPDATE guestlog SET hostcount = hostcount + 1 WHERE host='$host'" ) or die $dbh->errstr;
$sth = $dbh->prepare( "SELECT * FROM guestlog WHERE host='$host'" );
$sth->execute();
$row = $sth->fetchrow_hashref;

$data = "Êáëþò Þëèåò " .$host. "! ×áßñïìáé ðïõ âñßóêåò ôçí óåëßäá åíäéáöÝñïõóá!\n" .
"Ôåëåõôáßá öïñÜ Þñèåò åäþ ùò " .$row->{host}. " óôéò " ..$row->{date}. " !!\n" .
"ÓýíïëéêÝò Þñèåò åäþ " .$row->{hostcount}. " öïñÝò!!!\n" .
"Ôåëåõôáßá åßäåò ôï êåßìåíï { " .$row->{script}. " }\n" .
"Ðïéü êåßìåíï èá ìåëåôÞóåòé áõôÞí ôçí öïñÜ !?";
}
elsif( $hostmatch != 1 )
{
if ( $host ne "Íßêïò" )
{
$data = "ÃåéÜ óïõ " .$host. "!\n" .
"¸ñ÷åóáé ãéá 1ç öïñÜ åäþ !!\n" .
"Åëðßæù íá âñåßò ôá êåßìåíá åíäéáöÝñïíôá :-)";

$dbh->do( "INSERT INTO guestlog VALUES (null, '$host', '$date', '$script', 1, 1)" ) or die $dbh->errstr;
}
else
{
$data = "ÃåéÜ óïõ Íéêüëá, ôé ÷áìðÜñéá?! ¼ëá äåîéÜ íá óïõ ðÜíå ðÜíôá! ;-)";
}
}

Please help me.
This is the best way i can write it.
.