Select Code to Download

use warnings;
use strict;
...
    }
    print join( ' ~ ' => ( $right, $wrong ) ), $/;
}

ei ~ ie
eli- ~ liee
pf- ~ bve