$ perl -wMstrict -MData::Dump
while ( "start" =~ /(?!start)/pg ) {
    dd ${^PREMATCH}, ${^MATCH}, ${^POSTMATCH};
}
__END__
("s", "", "tart")
("st", "", "art")
("sta", "", "rt")
("star", "", "t")
("start", "", "")