spell.pl

#!/usr/bin/perl
use strict;
use warnings;
use Text::Aspell;

sub main() {
	my $str = "Уважаемые пассажиры, во избежание травм держитесь за поручни";
	my $speller = Text::Aspell->new;
	die unless $speller;
	$speller->set_option('lang', 'ru_RU');
	for my $word (split /[, ]+/, $str) {
		for my $i (grep{$_%2==0} (0..length($word)-1)) {
			my $copy = $word;
			substr($copy, $i, 2) = "";
			print "$copy\n" if $speller->check($copy);
		}
	}
}

main();