use strict;
use warnings;

$a = "01234";

print vec($a,1,2),"\n";