my @essids; foreach (@output){ $_ =~ /.*ESSID:\"(.*)\"/x; push @essids, $1 if $1; } print join "\n", @essids;