Select Code to Download

use strict;
use warnings;
...
for $S4 (1 .. 2) {
    print "A: <$S4> <", X(), ">\n";
}

use strict;
use warnings;
...

$S4 = "bbb";
print "B: <", X(), ">\n";