#!/usr/bin/perl -w
use strict;

$_{_}='Just another Perl hacker.';$_{__}='';@_=$_{_}=~/./g;$"
=$/;while(@_){$_{__}.=pop@_}@_=($_{__});while(($/=$_[-1])ne$_
{_}){@;{0..24}=map{pos$_{_}=pos$/=$_;($a)=$/=~/./g;($b)=$_{_}
=~/./g;"$a"eq$b}(0..24);@;=grep{!$;{$_}}keys(%;);$a=$;[rand@;
];do{$b=$;[rand@;]}while($b==$a);pos$/=$a;$|||=1;@;[0,2]=$/=~
/./g;pos$/=$b;@;[1,2]=$/=~/./g;$/=~s/(.{$a})./$1$;[1]/;$/=~s/
(.{$b})./$1$;[0]/x;@_=(@_=>$/)}for(@_){s/^/\r/;print$_;select
undef,undef,undef,0.10}print" :-)";sleep 1;print"@{['','']}";