Select Code to Download

use strict;
use warnings;
...

sub add_string { push @{ $stack[-1]{contains} }, $_[0] }