#!/usr/local/bin/perl -w

use strict;

{
   test1 ();
   test2 ();
   test3 ();
   test4 ();
}

#
#  Uses a simple scalar
#
sub test1
{
   my $i = "Hello, World";

   print "return - '", remove_caps ($i), "', \$i ='$i'\n";
}

#
#  Simple scalar, result is set to a different variable
#
sub test2
{
   my $i = "Hello, World";

   my $o = remove_caps ($i);

   print "return - \$i='$i', \$o='$o'\n";
}

#
#  Pass a constant
#
sub test3
{
   print "constant - ", remove_caps ("Hello, World"), "\n";
}

#
#  Operate on an array
#
sub test4
{
   my @iarray = ('Hello, World', 'Goodbye, Cruel World', 'Britney Spears Sux');

   my @oarray = remove_caps (@iarray);

   print "iarray = ";  print "'$_', " foreach (@iarray); print "\n";
   print "oarray = ";  print "'$_', " foreach (@oarray); print "\n";
}

#
#  Our humble little function
#
sub remove_caps
{
   my @out = @_;

   tr/A-Z//d for (@out); 

   return wantarray ? @out : $out[0];
}