Select Code to Download

#!/usr/bin/perl 
use strict;
...
push @{$row}, split /\Q$de/, $inp_row;

print Dumper $row;

Output:
Delim: |
Count: 6
...
          'ck',
          's'
        ];