obfuscated
FloydATC
<code>#!/usr/bin/perl
use strict;
use warnings;
my$pq=$[;my$qp=!$_;$"='@';for$/(split//,".,., ,,..,,,, .....,, '.,,,
.,.,., .,.,, '.,..,,,, ...., ,.,,...,. ,,, ...,.,, ',.,,, .,.,..,
..,,, '.,,..,., .,'...,,, '..,,,, .,...,, .,,'...., ..,..,., ., '...,
'.,,, ',,,., .',,,,*"){print$/eq'.'?foo(!$pq):($/eq'\''?bar(!$"):($/eq
','?baz(!$qp):$"));}sub foo{$pq+=$qp+sqrt($=+4);$pq%=($=+4)/2**3;$!;
}sub bar{$qp*=-1;$!;}sub baz{my@s=split//,unpack'b8',$";$s[$pq]=1-$s[
$pq];$"=pack'b8',join'',@s;$pq+=$qp;$pq%=$=/7.5;$!;}
</code>
<div class="pmsig"><div class="pmsig-616809">
-- [id://616809]
<p>Time flies when you don't know what you're doing</p>
</div></div>