my ($start,$middle,undef,$end) = $string =~ ...