#!/usr/bin/perl
use utf8;
use open IN  => ':encoding(UTF-8)';
open (DATA, "source.txt") || die "error opening file";
while (<DATA>) {
    my $add;
    if ($_ =~ /behälter/i) {
        $add->{Category} = 'Resttonerbehälter';
        $add->{Description} = $_;
    }
    my $added = $DB->table('tablename')->add($add);
}
close DATA;