--- perl-5.8.8/perl.c.U27426	2006-06-01 17:04:25.000000000 -0400
+++ perl-5.8.8/perl.c	2006-06-01 19:00:57.000000000 -0400
@@ -3076,8 +3076,7 @@
 	PL_minus_F = TRUE;
 	PL_splitstr = ++s;
 	while (*s && !isSPACE(*s)) ++s;
-	*s = '\0';
-	PL_splitstr = savepv(PL_splitstr);
+	PL_splitstr = savepvn(PL_splitstr, s - PL_splitstr);
 	return s;
     case 'a':
 	PL_minus_a = TRUE;