Hi shamat,

Dear Monks, I am a newbie in Pearl,..
Let me start by saying, if you are still new to Perl is not late to start good habit like use warnings and strict in your script.
Secondly, make your script readable use perltidy
The first entry in the list always refers to the correct spelling. I would like to find the mistakes in the entries 1-3, checking against the reference word. I would like to obtain an output like this:
One way to go is to compare each of the string with the first entry, letter by letter.
I will give a head up below. 
use warnings;
use strict;

my @words = qw(believe beleive beeliv pelief);

spelling_check( $words[0], $_ ) for @words[ 1 .. $#words ];

sub spelling_check {
    no warnings 'uninitialized';
    my @wrds;
    push @wrds, [ split //, $_ ] for @_;

    my ( $right, $wrong ) = q{} x 2;

    for ( 0 .. $#{ $wrds[0] } ) {
        if ( $wrds[0]->[$_] ne $wrds[1]->[$_] ) {
            $right .= defined( $wrds[1]->[$_] ) ? $wrds[1]->[$_] : qw'
+-';
            $wrong .= defined( $wrds[0]->[$_] ) ? $wrds[0]->[$_] : qw'
+-';
        }
    }
    print join( ' ~ ' => ( $right, $wrong ) ), $/;
}

[download]
Produces.. 
ei ~ ie
eli- ~ liee
pf- ~ bve

[download]
NOTE: Please, note that if either of the strings comparing per time is longer, you have "uninitialized value" thus I used no warnings 'uninitialized'
2. The printing is not as the OP wanted, but simply showed the difference in the letter of each string compared.
3. The OP is to use this as a guide.
Hope this helps

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

In reply to Re: Help finding mistakes in spellings using Perl by 2teez
in thread Help finding mistakes in spellings using Perl by shamat

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.