my $e=\substr;
$e->("Test",1);