Select Code to Download

1 2 3 |10
a b c |20
e f g |100
x n f |1

#!/usr/bin/perl -w
use strict;
...
 map {/\|(\d+)/; $H{$1}=$_ if $1}<R>;
close(R);
 foreach (sort {$a<=>$b} keys %H){print $H{$_}}

x n f |1
1 2 3 |10
a b c |20
e f g |100