my $str = "1|2|3";
my $delimiter = #get delimiter
$delimiter = quotemeta($delimiter);

print "$_\n" foreach(split(/$delimiter/, $str));

__OUTPUT__
1
2
3