join

join( 連結間の区切り文字 , 連結してつなげたい文字列リスト)

#!/usr/bin/perl

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

@string = ( "acha" , "porute" , "piipo" );

print "結合前 = @string<br>";

$after = join ( "-" , @string );
print "結合後 = $after<br>";

●出力結果
結合前 = acha porute piipo
結合後 = acha-porute-piipo

指定した文字で、複数の文字を連結