s///

s/変換条件/変換対象/修飾子

#!/usr/bin/perl

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

$address = "achaporutepiipo\@gmail.com";

print "address : $address<br>";

$address =~ s/(.+)\@.+/$1/;

print "変換後 : $address";

●出力結果
address : achaporutepiipo@gmail.com
変換後 : achaporutepiipo

正規表現を覚えれば様々な置換が可能です。
記載の方法によりパフォーマンスが変わります。
修飾子を記載しない場合は初めに見つかった対象だけを変換しますが、「g」とすると全てが変換対象になります。

修飾子：説明
e　：　変換対象を式とみなし実行
g　：　マッチした全てを変換
i　：　大文字小文字の区別をせずマッチング
m　：　文字列を複数行として扱う
o　：　パターンのコンパイルを行う
s　：　文字列を単一行として扱う
x　：　拡張正規表現を使用