Пиар жирного пидора.

Хули ты строку через == справниваешь, пхпшник что ли?

ханюфаг
перл

Заебись, это такой фьюжен.

>>2308184
Ебать дебил.

#!/usr/bin/perl

use v5.14;

say 'Ханюфаг, как чувствуешь?';

my $drink = <STDIN>;
chop $drink;

if($drink =~ m/Пьяный/) {
        say 'Давай еще накатим!';
}else{
        say 'Это надо отметить! Накатим же!';
}

>>2308207

use v5.14

Это не meh, это buurrrrrp.

>>2308207

#!/usr/bin/perl

use v5.14;

say 'Рогогнида, будешь писю сосать?';

my $drink = <STDIN>;
chop $drink;

if($drink =~ m/Конечно!/) {
        say 'Соси-соси, не останавливайся';
}else{
        say 'Соси-соси, не останавливайся';
}

>>2308237
Хороший код.

>>2308184
Похопепидор не знает про eq