$ perl -wMstrict -MData::Dump
"a"=~/(?!a)/p;
dd ${^PREMATCH}, ${^MATCH}, ${^POSTMATCH};
"start"=~/(?!start)/p;
dd ${^PREMATCH}, ${^MATCH}, ${^POSTMATCH};
__END__
("a", "", "")
("s", "", "tart")