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

##</code><code>##

hello A t=40a30

##</code><code>##

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

##</code><code>##

bonnie
lies
my