my $str    = "ABXCDEFDGXTGRAAAAAA";
my $start  = 5;
my $char   = "X";
my $end    = index($str, $char, $start);
my $result = substr($str, $start, $end-$start);

print $result, "\n";