Help for this page

Select Code to Download

Select or download this

use strict;

...
my $result = qq{@{[ map { m/^[\$@%]./ ? eval $_ : $_ }
                        split/\s/,$test ]}};
print "$result\n";

Select or download this
```
Hello world D and A or T are good
```