Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl

...
print "New contents: " . join( " : ", @new_array ) . "\n\n" ;

__END__
  2. or download this
    Original size: 8
Original contents: foo : bar : match : zoot : zoot : match : match : m
+atch

New size: 4
New contents: foo : bar : zoot : zoot