my $s='xxxxxxxxxxxxxxxxxxxxxxxxxxxxx'; my $x = \substr($s,10,10); # Ref to SV with substr magic $s = '0123456789Wierd, eh??'; print "$$x\n"; # Prints 'Wierd, eh?';
Next