--
#!/usr/bin/perl
my $str = `type unsort.txt`;

$str = join("\n", 
		map($_->[0],
		    sort( {$a->[0] cmp $b->[0] }
			  map( [$_, (split('|', $_))[-1] ], 
			       split(/\n/, $str)
			     )
			 )
		   )
	       );

print $str;
--