substr

substr( 抜き出したい対象元 , 抜き出し開始位置 , 抜き出し文字数 )

#!/usr/bin/perl

$num = "1234567890";
$yubin_before = substr( $num , 0 , 3 );
$yubin_after = substr( $num , 3 , 4 );

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

print "入力文字 = $num<br>";
print "  ↓<br>";
print "郵便番号 = $yubin_before-$yubin_after<br>";


●出力結果
入力文字 = 1234567890
↓
郵便番号 = 123-4567

特定の文字列を抜き出したい時に利用できます。
文字列操作を行う時には有効な関数です。