my $short = substr $string, 0, 15;