#!/usr/bin/perl -w
use strict;

my $var = '<date>';
print "$var\n";

$var =~ s|date|/date|; #easier than s/date/\/date/;
print "$var\n";
__END__
Prints:
<date>
</date>