#!/usr/bin/perl -w

use strict;
use Devel::Peek;
use Encode ();

my $str = 'Übel';
Dump($str);

$str = Encode::decode('iso-8859-15', $str);
Dump($str);

my $str2 = do_encode($str);
Dump($str2);

my $str3 = do_encode_with_tmp($str);
Dump($str3);


sub do_encode {
    my $text = shift;

    return Encode::encode('iso-8859-15', $text);
}

sub do_encode_with_tmp {
    my $text = shift;

    my $tmp = Encode::encode('iso-8859-15', $text);

    return $tmp;
}