Help for this page

Select Code to Download


  1. or download this
    my %key;
if ($_[0] =~ /^(.+?):(.+?)$/) {
  2. or download this
            $key{'name'} = $1;
        $key{'definition'} = $2;
        $key{'altdefinition'} = '';
  3. or download this
    } elsif ($_[0] =~ /^(.+?)\|(.+?)$/) {

        $key{'name'} = $1;
        $key{'altdefinition'} = $2;
        $key{'definition'} = '';