use strict; use warnings; #Word followed by : my $EXPERIMENT_REGEX= qr(^\w+:); #Word followed by word my $LABELS_REGEX=qr(^Include\s+Color); #Word followed by num my $DATA_REGEX=qr(^\w+\s+\d+);