my $data =~ s@<c>