use strict;
use warnings;
my $data = <<DATA;
DataAchr(9)DataBchr(9)DataC
DATA

open my $infile, '<', \$data;

while (<$infile>) {
  chomp;
  my $re = 'chr(9)';
  my @array= split(/\Q$re\E/,$_);
  print "@array\n";
}

close $infile;

##</code><code>##

DataA DataB DataC