johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
open my $cmdFH, q{<}, \ <<EOD or die $!;
BSS <blah blah>
   SSID: <ssid>
   <blah blah>
BSS <blah blah>
   SSID: <ssid2>
   <blah blah>
BSS <blah blah>
   SSID: <ssid3>
   <blah blah>
EOD

my $out = do {
   local $/;
   <$cmdFH>;
   };

my @ssids = $out =~ m{SSID: (.*?)(?=(?:^BSS|\z))}smg;
say qq{--<$_>--} for @ssids;'
--<<ssid>
   <blah blah>
>--
--<<ssid2>
   <blah blah>
>--
--<<ssid3>
   <blah blah>
>--