#!/usr/bin/perl
use strict;
use warnings;

my @array = qw( one 1{ two } three 2{ four five } six );

@array = grep ! ( /2{/ .. /}/ ), @array;

print "@array";