Select Code to Download

#!/usr/bin/env perl -l

...
    (my $no_newlines = $1) =~ y/\n/ /;
    print "Lines joined: $no_newlines";
}

Function: static gboolean g::ber_read(wtap *wth, int *err)
Captured: g::ber_read(wtap *wth, int *err)
...
Captured: ber_set_pkthdr(struct wtap_pkthdr *phdr,
int packet_size)
Lines joined: ber_set_pkthdr(struct wtap_pkthdr *phdr, int packet_size
+)