$hostnameregex = qr/[-a-z0-9]+(\.[-a-z0-9]+)*\.(com|cn|info)/i;#设置其中匹配URL的文本变量 
chomp($text=<STDIN>);#接收用户输入的一行文本，并且去掉$text尾行的换行 
$text =~ s{    #将mail转化为链接形式 
\b 
#把地址保存到$1中 
( 
    \w[-.\w]* 
     \@ 
    $hostnameregex 

) 
\b 
}{<a href="mailto:$1">$1</a>}gix;#g表示全文搜索 i表示忽略大小写 x表示修饰符，使表达书更容易理解 
print "this    is    $text \n"; 
chomp($text1=<STDIN>); 
#将html地址转化为链接形式 
$text1 =~ s{ 
\b 
( 
    http://$hostnameregex \b 
    ( 
                        /[-a-z0-9_:~!@#$%^&*]*#path不一定会出现 
            (?<![!.?])#不能以[.,!?]出现 
)? 

) 
}{<a href="$1">$1</a>}gix; 
print "this is url $text1 \n";