Post by heejun;1828178
<lig@other-server:~/chinaunix>$ perl -ne 'print if /^\|(\d{4})\d+?\|\1/' <<HERE;
> |031184881998|031113393113795
> |031124881998|031143393113795
> |031211341998|031184881998
> HERE
|031184881998|031113393113795
|031124881998|031143393113795