sub a{
$_=pop;
$i+=$++1while s/Re:\^?(\d*) *//;
"Re:^$i $_"
}