while ($in{$modContactTitle} =~ /[\s]+$/)
  {
  chop($in{$modContactTitle});
  }

##</code><code>##

$in{$modContactTitle} =~ s/[\s]+$//;<br>
# yes the '[]' aren't necessary, but are  helpful
##</code><code>##

[0-9]
##</code><code>##

and are you sure you want '1' and not $[ in:
@array = (split " ", $sites);
  print $array[1];
if ($array[1] == 7)
  { ...