#=======================INSERTING TEXT FILE TO DATABASE========================
my $replace = $dbh->prepare( "REPLACE INTO games (file, name, description, counter) VALUES (?, ?, ?, ?)" );

open (FILE, "<../data/games/descriptions.txt") or die $!;

while (<FILE>) {
    chomp;

    if (length) {
       $replace->execute( split(/\t/, $_, 2),  0 ) or print $dbh->errstr;
    }
}

close (FILE);