Select Code to Download

#! perl
use strict;
...
my  @strings_or_numbers = ('abc', 123, 'ab4', 456);
my  @filtered = grep { "$string_or_number" ne "$_" } @strings_or_numbe
+rs;
dd \@filtered;

 1:37 >perl 1612_SoPW.pl
["abc", "ab4", 456]

 1:37 >