(split /$separator/, $line)

##</code><code>##

my $third_elmnt = (split /$separator/, $line)[2];

##</code><code>##

[split /$separator/, $line];