Select Code to Download

use strict;
use warnings;
...
my @cols = split(/|/, $line);

print "@cols";

T h i s | t h a t

This that

if ($cols[11] = $target1)