chomp $data; 
chop $data; 
$data = reverse ($data); 
chop $data; 
$data = reverse ($data);