in reply to Sed to perl conversion-- flipping lines in a file

  print map {
    $$_[1]
  } sort {
    $$a[0] <=> $$b[0]
  } map {
    /(\d+)/;
    [$1, $_]
  } <FILE>;

[download]
;$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$;[-1]->();print

In Section Seekers of Perl Wisdom