my $var = 'Test';
$var =~ /es/g;
print pos( $var );