my $data = "f1|f2|f3|f4|f5";

my ($clliA, $clliZ) = (split /|/, $d)[1,3];
# $clliA = "f2"
# $clliZ = "f4"