You could use a do block to isolate the temporary:

$s = join'', 'a'..'z';;
@bits = do{ local @_ = split'', $s; @_[3..$#_]};;
print @bits;;
d e f g h i j k l m n o p q r s t u v w x y z
[download]