#!/usr/local/bin/perl
# Prilusky, 2011
# use of references

  my $string = join(" ",@ARGV);

  print "org [$string]\n";

  trimSpaces(\$string);

  print "trm [$string]\n";


sub trimSpaces {
  my($str)=@_;
  $$str =~ s/^\s*(.*?)\s*$/$1/;
  $$str =~ s/\s+/ /g;
}