in reply to Add character in middle
#!/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"; [download]