Help for this page

Select Code to Download

Select or download this

  my @files = qw( foo.zip twotwo.doc three.one.four.ppt four );
  my ( @only_names, @only_exts );
...

  print "names = [ @only_names ]\n",
        "exts  = [ @only_exts ]\n";

Select or download this

  names = [ foo twotwo three.one.four four ]
  exts  = [ zip doc ppt undef ]