#!/usr/bin/perl
use CGI qw(escape);
$str = \'Select d.izm0, d. izm1 into #need_calc from #temp_tot t, #doc_data d
where t. izm 0 = d. izm0 and t. izm1 = d. izm1 and t.period <> d.period\';
print escape($str);
---------- Perl run ----------
Select%20d.izm0%2C%20d.%20izm1%20into%20%23need_calc%20from%20%23temp_tot%20t%2C%20%23doc_data%20d%0Awhere%20t.%20izm%200%20%3D%20d.%20izm0%20and%20t.%20izm1%20%3D%20d.%20izm1%20and%20t.period%20%26lt%3B%26gt%3B%20d.period
Output completed (0 sec consumed) - Normal Termination