$_ = "perl monks";

#pe er rl mo on nk ks 
for ( split /\s+/ )
{
    $last = "";
    
    for ( split // )
    {
        print "$last$_ " if $last; 
        $last=$_;
    }
}