my @array = qw/1 2 3 4 5 6 7 8 9 10 11 12/;
my $pattern = qr/2/;

@array = grep { ! /$pattern/ } @array;
# @array now contains qw/1 3 4 5 6 7 8 9 10 11/