#!/usr/bin/perl use Suika::CGI; my $tr_f = q{あいうえおかきくけこさしすせそたちつてとなにぬねの} .q{はひふへほまみむめもやゝゆ～よらりるれろわゐんゑを} .q{アイウエオカキクケコサシスセソタチツテトナニヌネノ} .q{ハヒフヘホマミムメモヤヽユーヨラリルレロワヰンヱヲ}; my $tr_t = q{はひふへほまみむめもやゝゆ～よらりるれろわゐんゑを} .q{あいうえおかきくけこさしすせそたちつてとなにぬねの} .q{ハヒフヘホマミムメモヤヽユーヨラリルレロワヰンヱヲ} .q{アイウエオカキクケコサシスセソタチツテトナニヌネノ}; my $s = $Suika::CGI::param{string}; jcode::tr (\$s, $tr_f => $tr_t) if uc $Suika::CGI::param{ten25} eq 'ON'; $s =~ tr/A-Za-z/N-ZA-Mn-za-m/ if uc $Suika::CGI::param{rot13} eq 'ON'; $s =~ s/&/&/g; $s =~ s/"/"/g; $s =~ s//>/g; print < 転25(実験版)

転25(実験版)

EOH