use warnings;
use strict;

my $wd =
'Perl 5 is a highly capable, feature-rich programming language with over 27 years of development.';
my $midpt = ( split //, $wd ) / 2 ;
print join(
    $/ => (
        "First-Half:",  substr( $wd, 0, $midpt ),
        "Second-Half:", substr( $wd, $midpt )
    )
), $/;

##</code><code>##

First-Half:
Perl 5 is a highly capable, feature-rich program
Second-Half:
ming language with over 27 years of development.