#!/usr/bin/perl -l

# https://perlmonks.org/?node_id=1227147

use strict;
use warnings;

my $pattern = '011';

my @result = grep !($pattern =~ /./g && $&), 0..12;

local $, = ',';
print @result;