@lines = sort {($b =~ /(?:\|([\w\s]+)){2}/)[0] <=> ($a =~ /(?:\|([\w\s]+)){2}/)[0]
     } @lines;


##</code><code>##

$b = "0|aa aa|1998|aaa a|a aaa|10|aa a aa";
@a = ($b =~ /(\|[\w\s]+){2}/);
use Data::Dumper;
print Dumper(\@a);


##</code><code>##

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/