if(/t/){$a=r;$a?$n=$L[$a-1]:last if r}
---
$a=r,r&&($a?$n=$L[$a-1]:last)if/t/;