my $short = ( m/^(.{1,20})/ ) ? $1 : '';

##</code><code>##

my( $short ) = m/^(.{0,20})/;