##

   
   

##

##

   foreach $line(@data)
   {
      $line =~ s/