Select Code to Download

#!/usr/bin/perl
use strict;
...
my $string = 'One bright day in the middle of the night';
my ($char) = $string =~ /($rand_char)/;
print "$char\n";

#!/usr/bin/perl
use strict;
...
tie my $rand_char, "Random_Char";
my ($char) = 'One bright day in the middle of the night' =~ /($rand_ch
+ar)/;
print "$char\n";