Select Code to Download

use strict;
use warnings;
use 5.010;
...
    say $1;
    say pos $str;
}

use strict;
use warnings;
...
--output:--
TGA
12

use strict;
use warnings;
use 5.010;
...
    say $1;
    say pos $str;
}