Select Code to Download

use strict;
use warnings;
...
my @fields = split /\Q$foo\E/, $str;

print join '|', @fields;

acb|def|123|456