$ perl a2.pl | tr \\r \\n | uniq

Just  |another  |Perl  |hacker,  
 Just |another  | Perl |hacker,  
 Just |nother  a| Perl |acker,  h
  Just|nother  a|  Perl|acker,  h
  Just|other  an|  Perl|cker,  ha
  Just|ther  ano|  Perl|ker,  hac
t  Jus|ther  ano|l  Per|ker,  hac
t  Jus|her  anot|l  Per|er,  hack
st  Ju|her  anot|rl  Pe|er,  hack
st  Ju|er  anoth|rl  Pe|r,  hacke
st  Ju|r  anothe|rl  Pe|,  hacker
ust  J|r  anothe|erl  P|,  hacker