Help for this page
$ perl -e 'my $names="12345678901234567890"; my $oneName = substr($na +mes, 0, 15); print "$oneName\n";' 123456789012345