Perl 의 substring 함수

 my $a = "ABCDEFG";  
 my $b = substr($a, 2, 4);  
 print "$b\n";  

결과값은 CDEF 와 같이 나온다.
레퍼런스 : Chop, Chomp, Length, and Substring