Select Code to Download

#!/usr/bin/perl
use strict;
...

my $silly = SillyClass->new( 'a teststring' );
$silly->modifySubstring( 3, 3 ) = 'ABC';

#!/usr/bin/perl
use strict;
...
my $silly = SillyClass2->new( map $_ * 2, 1 .. 50 );
( $silly->modifySubset( 15, 16 ) ) = ( 20, 22 );
( $silly->modifySubset( 15, 35 ) ) = ( 1 .. 20 );