sub rmbr(\[@$])
{
  my $r=shift;
  if(ref $r eq 'ARRAY')
  {
    s/(:?\x0D?\x0A|\x0D)+$//gs for @$r;
    s/(:?\x0D?\x0A|\x0D)+/ /gs for @$r;
    return 1;
  }
  $$r=~s/(:?\x0D?\x0A|\x0D)+$//gs;
  $$r=~s/(:?\x0D?\x0A|\x0D)+/ /gs;
  return 1;
}