Something like:

use strict;
use warnings;

my $str = 'acb^def^123^456';
my $foo = '^';
my @fields = split /\Q$foo\E/, $str;

print join '|', @fields;
[download]

Prints:

acb|def|123|456
[download]