Re: Break sentence into two part


Perl-Sensitive Sunglasses
	PerlMonks

Re: Break sentence into two part

by AnomalousMonk (Archbishop)

on Jan 24, 2015 at 23:02 UTC ( [id://1114398]=note: print w/replies, xml )

Need Help??

in reply to Break sentence into two part

More useless code:

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'
[download]

Give a man a fish: <%-(-(-(-<