Be careful with (ie. don't use) the $a and $b operands... they are special to perl.

my $x ='01234567890';
my $y ='15556667777';

test($x);
test($y);
[download]