my $mystring = "perl monks";

my $tmpstring = $mystring;
my $my_splitted_string = "";
while ($tmpstring)
{
        $tmpstring =~ m/^(\w{2})/ and $my_splitted_string .= $1." ";
        $tmpstring =~ s/^.//;
}

print "$my_splitted_string\n";