You don't need to escape the ':' in the regex.
@cnip = split /:/, $datb
will do fine.

Also using cat & grep seems a bit messy, what about:

use File::Slurp;
@datb = grep { /$cnip/ } read_file('tech3');
[download]