>>137-139
ご回答ありがとうございました。
このようにしました。

($xdate,$ydate)=split(/&/,$ENV{QUERY_STRING});

($x)=$xdate=~/x=([^=]*)/;
($y)=$ydate=~/y=([^=]*)/;