zuodx

#!/usr/bin/perl
use strict;

my @dst = qw(      
    002king|3270501   
    0410zxasqw|lsk521
    107559797|7758521
  );

my $line ;
my $prev = '';

while($line = <>)
{
   chomp  $line  and s/^\s+// and  s/\s+$// ;
   print "$prev\n" if ( grep ({$_ eq $line}   @dst ));
   $prev = $line;
}