Select Code to Download

#!/usr/bin/env perl -l

...
        join '', map $code{substr $_[0], $_*3, 3}, 0..length($_[0])/3-
+1
    }
}

ATGCCCGTAC => MPV
GCTTCCCAGCGC => ASQR

sub f {
    state $static_var = ...

    ... do something with $static_var here ...
}

{
    my $static_var; BEGIN { $static_var = ... }

    sub f { ... do something with $static_var here ... }
}

{
    my $static_var; BEGIN { $static_var = ... }
...

    sub g { ... do something with $static_var here ... }
}