use Encode;
sub convertData {
	my $tempString = encode("iso-8859-2",shift);
	my $newString = "";
	
	for ( my $l=length( $tempString), my $i = 0; $i < $l; $i++ ) {
   		my $chr = substr( $tempString, $i, 1 );
    		my $ascii = ord( $chr ); 
		
		if ( ( $ascii < 32 ) or ( $ascii > 126 ) ) {
			$newString .= sprintf("\\%03o", $ascii); 
		}
		else
		{
			$newString .= $chr;	
		}
	}
   	
	return $newString;

 }