adnota -MLingua::Romana::Perligata
ute strict. ute warnings.                             adnota use strict; use warnings;
huic vestibulo perlegementum da.                      adnota $_ = readline STDIN;
his lacunam tum hoc scindementa da.                   adnota @_ = split ' ', $_;
meis apis lacunam tum hoc scindementa da.             adnota my @ap = split ' ', $_;
meo io nullum da.                                     adnota my $i=0;
meo mo haec admetamentum da.                          adnota my $m = $#_;
per in nullum tum mum conscribementis fac sic         adnota for (0..$m) {
  hoc tum lacunam egresso scribe.                     adnota   print STDOUT $_, ' ';
  hoc horum tum lacunam egresso scribe.               adnota   print STDOUT $_[$_], ' '; # prints $_ instead
cis                                                   adnota }
scribe novumversum egresso.                           adnota print STDOUT $/;
meis bis.                                             adnota my @b;
meo vo.                                               adnota my $v;
per vum in nullum tum mum conscribementis fac sic     adnota for $v (0..$m) {
  vum tum lacunam egresso scribe.                     adnota   print STDOUT $v, ' ';
  vum aporum tum lacunam egresso scribe.              adnota   print STDOUT $ap[$v]; # prints $v instead
  vo borum vum aporum da.                             adnota   $b[$v] = $ap[$v]; # doesn't assign
                                                      adnota                     # (@b has a 'once' warning, not on
                                                      adnota                     #  this line, in simpler versions of
                                                      adnota                     #  this script)
cis                                                   adnota }
scribe novumversum egresso.                           adnota print STDOUT $/;
per in his fac sic scribe hoc tum lacunam egresso cis adnota for (@_) {print STDOUT $_, ' '}
scribe novumversum egresso.                           adnota print STDOUT $/;
per in bis fac sic scribe hoc egresso cis             adnota for (@b) {print STDOUT $_} # doesn't print