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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl -p0
$_=$1while/.^(.+)^/sm

##</code><code>##

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