perl_指定した文字数目を取る

たとえば、
sub.hogehoge.com
上記の場合でsubの部分だけ欲しいのであればsplitでコンマ(.)をデミリタに指定すればとれるが、1文字目のsだけ取りたい場合は少し面倒くさかった。

このときは

$_sub = substr("sub.hogehoge.com",0,1);
print "$_sub";

実行結果

# perl substring.pl
s

参考URLより

1番目の引数には対象となる文字列を指定します。
2番目の引数には文字列の中の位置を指定します。先頭の文字の位置は「0」です。位置に負の値を指定した場合、
最後の文字を「-1」として最後から先頭に向かった移動した位置となります(「-2」の場合は最後から数えて2番目の文字)。

という形で、そちらのほうが分かりやすいし、参考になるのでどうぞ。
参考URL：
http://www.perlplus.jp/func/string/index2.html

Link