Select Code to Download

{
    my $vec; 
...
    my $vec = ''; 
    vec( $vec, 0, 1 ) = 1; 
};;

{ 
    my $s; 
...
    my $s = ''; 
    substr( $s, 0, 1, 'fred' ); 
};;

{ 
    my $s = ''; 
...
    print $s; 
};;
 fred