Did you fail to mark this as Homework because it's so obvous obvious?

See On asking for help and How do I post a question effectively?.... and then at least skim through PerlMonks FAQ.

As LanX noted above, some Monks seem to get some sort of gratification from doing your homework for you, but that's not apt to actually help you learn. And your careless spelling, grammar and (lack-of-) markup hardly reflect any real respect for the quite ordinary human beings who've responded in the past.

Update: 1.  s/obvous/obvious Thanks LanX! A particularly egregious typo when i/I/me was complaining about careless spelling. 2. Likewise thanks to Not_a_Number re the "s" in some -- it just didn't have strike>anough 3. s/anough/enough/ twists and turns. Why do I think I should have chosen something other than spelling to complain about? But let's stop here, before I commit another typo.

why do you ignore the formating guidelines, especially <p> and <code> ?

> and you delivered like gods

unfortunately some monks here love doing the homework of others, it's like feeding stray cats.

Sorry for the layout. I did manage to do it by "slicem'up" and made the word into 3 different scalars and reversed the first and last, but then i read that i needed to have only 2 variables so now im stuck, iv never used substr and reverse before, i did manage to delete the first 3 and the last 3 letters, but deleted the code in frustration.

> but deleted the code in frustration.

Too bad, people here are eager to help improving code.

Maybe you should try again?

Cheers Rolf

PS: Je suis Charlie!

Using substr and reverse ?

I read that, as a puzzle to solve it without substr and reverse.

Enjoy.

sub scramble {
    (my $str, my $toshuf) = @_;
    my $len = length($str);
    if($toshuf * 2 > $len){
        return "!error-rorre!";
    }
    $str = lc($str);
    my @idx = ();
    my $i = $toshuf;
    push(@idx, $i--) while $i;
    push(@idx, ($toshuf + 1) .. ($len - $toshuf));
    push(@idx, $len - $i++) while $i < $toshuf;

    return sprintf(join("", map({"%$_\$s"} @idx)), split(//, $str));
}
[download]

Come on! That smells like C. Not enough line noise, IMO! We obviously need regex :)

use strict;
use warnings;

sub scramble {
    lc $_[0] =~ s{(^.{$_[1]}|.{$_[1]}$)}
      {join '', (split '', $1)[map -$_, 1..$_[1]]}reg;
}

print scramble( "Institute", 3 ), "\n";
print scramble( "Babraham", 2 ), "\n";
[download]

This is a homework problem ... obviously ... that will involve (e.g.) the use of the Perl functions splice and join.   Take a good look at the two pages I’ve hyperlinked, and I’ll bet that you will be able to solve this assignment for yourself in a very little while.

And if you can’t, then your instructor needs to know, and to be the one to help you, so that s/he will also be aware of the points that might need further clarification in an upcoming classroom session.   (If you are having this problem, then you are not the only one of your classmates to be doing so.)   Put the instructor into “the loop.”

A better solution would use the string functions substr and reverse rather than the array functions you suggest.
Bill