#!/usr/bin/perl
$var='<date>';
$newvar=$var;
   $sec = substr($newvar,0,1);
   $sec = '</'; print $sec,"\n";

print "Old value is $var and new value is $sec";