Help for this page

Select Code to Download


  1. or download this
    $keys = '';
$keys .= 'field' . 'A';
@keys = split /field/, $keys, -1; # grabs trailing zero-lengths
pop @keys;
  2. or download this
    use warnings;
use strict;
...
<[A][][]>
<[A][]>