#!/usr/bin/perl -p
11..exit

##</code><code>##

while (<>) {
  11..exit;
} continue { print }

##</code><code>##

#!/usr/bin/perl
print+(<>)[-10..-1]

##</code><code>##

#!/usr/bin/perl
map--$.>9||print,<>

##</code><code>##

for (<>) {
  print unless --$. > 9;
}

##</code><code>##

#!/usr/bin/perl -p
$\=$_.$\}{

##</code><code>##

while (<>) {
  $\ = $_ . $\
} {;
} continue { print }

##</code><code>##

#!/usr/bin/perl
@_=<>;print@_[$#_/2..@_/2]

##</code><code>##

#!/usr/bin/perl
printf"%010d\n",$.,<>