Select Code to Download

use strict;
use warnings;
...
    print "[$t->[0]]...";
    print "[",substitute(@$t), "]\n";
}

[this is some test]...[this is not a test]
[this is some test]...[this is not a test]