perl -ne 'my @x=split /\|\s/,$_; my $last=$x[$#x];print qq|$last\n|' YOUR.File.Name.here