#!/usr/local/bin/perl -w

require 'jcode.pl';

if (defined $ENV{'REQUEST_METHOD'} and $ENV{'REQUEST_METHOD'} eq "POST"){
	read(STDIN, $in, $ENV{'CONTENT_LENGTH'});
} else {
	$in = $ENV{'QUERY_STRING'} || 'text=test@example.jp';
}

$addr = '[\w\d\-\.]+';

foreach $data (split(/&/, $in)){
	local($name, $val) = split(/=/, $data);
	$val =~ tr/+/ /;
	$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$form{$name} = $val;
}

print "Content-Type: text/plain\n\n";

$form{'text'} = &jcode::euc($form{'text'});
@addr = $form{'text'} =~ /(${addr}\@${addr})/g;
print join("\n", @addr), "\n";