use 5.010;
use IO::Prompt qw(prompt);

my $var = 'hallo';
while ($var = prompt {-p => ('$var = ' . $var . "\b" x length($var)), -d => $var}) {
    say $var;
}