#!/usr/bin/env perl

use utf8;
use open qw(:std :utf8);

use Modern::Perl;
use Data::Dumper;

my $vendor = qr/
    \b
    (?:
        samsung |
        gefest  |
        гефест
    )
    \b
/x;

my $model = qr/
    \b
    (?:
        [0-9a-zа-я]
        (?:
            [0-9a-zа-я] | \s | -
        )*
    )
    \b
/x;

my $grammar = qr/
    (?<vendor> $vendor )
    \s
    (?<model> $model )
/xo;

open my $fh, '<', 'Downloads/H05165938_OfferInfo.csv';
my($i, $j) = (0, 0);
while(<$fh>) {
    chomp;
    s{"}{}g;
    my(undef, $text) = split /;/, lc;

    $text =~ $grammar;
    my($vendor, $model) = @+{qw(vendor model)};
    $vendor //= 'n/a';
    $model  //= 'n/a';

    for($model) {
        s{\s}{}g;
        s{-}{}g;
    }

    say "$text | $vendor | $model";
}
close $fh;