Help for this page
use strict; use warnings; use feature 'say'; my $input = do { local $/; <DATA> }; ... BSS <blah blah> SSID: <ssid3> <blah blah>
$ perl 1182702.pl <ssid> <ssid2> <ssid3>