use strict;
use warnings;

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

print join '|', @fields;