Help for this page

Select Code to Download

Select or download this

perl -wne '
  $h{$1}++ if /bn(\d{4}),/ }{$,="\t"; print %h, "\n"
' datafile

Select or download this

perl -MO=Deparse -wne '
  $h{$1}++ if /bn(\d{4}),/ }{$,="\t"; print %h, "\n"
'