ファイル名: w/tr&s.cgi

#!/usr/local/bin/perl

# ----------------------------------------------
#   タイトル (ファイル名: hogehoge.cgi )
# ----------------------------------------------

$Title = 'tr&s';

# ------------------- 関数 hogehoge ---------------

$_ = "warewan1123 and JOHN1123";
$B = tr/a-z/A-Z/;
$C = s/1/2/;

# ----------------------HTML-------------------

print"Content-type: text/html\n\n";

print <<__HTML__;

<HTML>
<HEAD>
<TITLE>$Title</TITLE>
</HEAD>
<BODY bgcolor="#000000" text="#ffff99">
<blockquote>
<font size="4">
\$_ = "warewan1123 and JOHN1123";(はじめの文字)<BR>
\$B = tr/a-z/A-Z/; (小文字時を大文字に)<BR>
\$C = s/1/2/; (1を2に)<BR>

<BR>
結果は、
$_<BR>
(\$B)trでの変換数$B<BR>
(\$C)sでの変換数$C<BR>
trは、すべてsは最初の1回のみですが、修飾子で、また変化、ややっこしい。
</font>
</blockquote>
</BODY>
</HTML>

__HTML__

exit;