I smash keys randomly and perl does useful things. For various values of useful. I also fiddle with C and other things. For whatever that's worth to you. Here's a lovely example of my madness:

$q="raw 2>&1";@c=split//,join'',<>;while($_=$c[$p],/./s){/>/&&$i++;/</&&$i--
;/]/&&($p=pop@s)--;/\[/&&($m[$i]?push@s,$p:do{$_=$c[++$p]while$x+=/\[/-/]/})
;/,/&&(`stty $q`,$m[$i]=ord getc,`stty -$q`);/\./&&print chr$m[$i];/\+/&&$m[
$i]++;/-/&&$m[$i]--;$p++} # brainfuck.pl (C)2006-2022 pegasus@pimpninjas.org