All the Perl that's Practical to Extract and Report
Finally the TPR0 competition ended. My entry was: #!/usr/bin/perl -l for(reverse+split//,pop){$_=ord()-55if/\D/;$q+=$_*36**$i++}print$q __END__
#!/usr/bin/perl -l for(reverse+split//,pop){$_=ord()-55if/\D/;$q+=$_*36**$i++}print$q __END__
