use strict; use warnings; open my $fh, '<', 'defines.h' or die $!; my @lines = <$fh>; my @all_28s = grep /28/, @lines; my @all_42s = grep /UNIVERSE_ANSWER/, @lines;