$s='foobar';
print '4-arg: ', substr( $t=$s,1,4,$_)
   , ' 3-arg: ', substr($t=$s,1,4)=$_ 
   for qw[ a ab abc abcd abcde abcdef ];

4-arg:  ooba  3-arg:  ar
4-arg:  ooba  3-arg:  abr
4-arg:  ooba  3-arg:  abcr
4-arg:  ooba  3-arg:  abcd
4-arg:  ooba  3-arg:  abcd
4-arg:  ooba  3-arg:  abcd