my ($number,@regexp,@compiled,$line);