my $number = '01';
while(<DATA>)
{
	 print if ( (/$number/ ... /^\d\d/) =~ /^\d(?!E0)/);
	 
}

__DATA__
01
- three cans
- one file
- three balls
02
- none
- yes coffee
03
- foo
- bar