use strict;
use warnings;

my $line = "This|that";
my @cols = split(/|/, $line);

print "@cols";

##</code><code>##

T h i s | t h a t

##</code><code>##

This that

##</code><code>##

if ($cols[11] = $target1)