``` adb logcat -s Lifecykle | perl -ne '$|=1; if (/Lifecykle: (\S+) \S+ (onResume|onPause)/) { $a=$1; $s=$2; if ($s eq "onResume") { push(@r, $a) unless grep { $_ eq $a } @r; } else { @r=grep { $_ ne $a } @r; } print "\r\e[0K", join(" ", @r), "" if scalar @r; }' ```
