my $ext = substr $str, $start, $end - $start;