c:\@Work\Perl>perl -wMstrict -le
"my $sent =
   'Perl 5 is a highly capable, feature-rich programming language with over 27 years of development';
 ;;
 my $len = int(length($sent) / 2);
 ;;
 my ($first, $second) = $sent =~ m{ (\A .{$len,}?) \s+ (.*) }xms;
 ;;
 print qq{'$first'};
 print qq{'$second'};
"
'Perl 5 is a highly capable, feature-rich programming'
'language with over 27 years of development'