Select Code to Download

m/A t=(d*)/;
my $t_val = $1;

hello A t=40a30

my @list = ('my', 'bonnie', 'lies');
foreach my $word (sort @list) {
   print $word, "\n";
}

bonnie
lies
my