Select Code to Download

sub beautify {
    my ($in) = @_;
...
    $tmp =~ s/\s$//;
    return($tmp);
}

use util;

...
is( &util::beautify( "üisTheWord"), "Üistheword", "üisTheWord - specia
+l character changes case." );
is( &util::beautify( "ÿisTheWord"), "Ÿisthejword", "ÿisTheWord - speci
+al character changes case." );
...

use utf8;
use Encode;