my $delimiter = '$#$';

my @columns = split /\Q$delimiter\E/, $data;