my $length = length(substr($_, 2, 2) = 'abXab');
print $length;