Нечеткое совпадение в Perl

Question

Я хочу сделать нечеткое сопоставление с разными строками, например, air twist должно совпадать с air-twist или air twists или air-twists.

В perl, есть ли какой-то модуль, который нужно сделатьтот? или мы можем сделать это вручную, например, используя Regex?

Answer 1

Что-то вроде следующего кода делает работу

use strict;
use warnings;

my $regex = qr/air.twists{0,1}/;

while( <DATA> ) {
    print if /$regex/;
}

__DATA__
air-twist
air balloon
air twists
fried potato
air-twist
Cesar salad
air-propeller
air show
broken car
new bicycle