use warnings; no warnings 'deprecated';
use strict;
use Test::More tests => 6;
our $t;
$[ = 3;
$t = "abcdef";
is substr($t, 5), "cdef";
is $t, "abcdef";
$t = "abcdef";
is substr($t, 5, 2), "cd";
is $t, "abcdef";
$t = "abcdef";
is substr($t, 5, 2, "xyz"), "cd";
is $t, "abxyzef";
1;