http://www.perlmonks.org?node_id=265635


in reply to 'defined' function

Something like this ? :
push @points,grep {defined} @peaks[7,8,9,10,11,12,13];
OR (as you seem to have written:)
push @points,join " ",grep {defined} @peaks[7,8,9,10,11,12,13]

-edit- too late :)
GreetZ!,

print "profeth still\n" if /bird|devil/;