package MyLang;
 
use Filter::Simple;

sub translate {
   my $mylang_code = shift;

   ...

   return $perl_code;
}
 
FILTER { $_ = translate($_) }

1