my $short_string = substr $_, 0, 20;