#!/usr/local/bin/perl -w
# ref-lvalue.pl -- Undokumentierte LVALUE-Zeiger

use strict 'refs';

$str    = "perl is hard to learn";
$lv_ptr = \substr($str, 8, 4);

print "Pointer    : ", $lv_ptr, "\n";
print "ref()      : ", ref($lv_ptr), "\n";
print "str before : ", $str, "\n";

${$lv_ptr} = "easy";

print "str after  : ", $str, "\n";