Abuzar Chaudhary wrote: > my $s1 = substr($s, 0, int(length($s)/2)); > my $s2 = substr($s, int(length($s)/2)+1); It doesn't get any cleaner than that! Thanks Abuzar! Madi