Help for this page

Select Code to Download


  1. or download this
    my $short = ( m/^(.{1,20})/ ) ? $1 : '';
  2. or download this
    my( $short ) = m/^(.{0,20})/;