use warnings;
use strict;

# 737495

my $text = ' example.txt "unimportant1" "unimportant2" "unimportant3" "time" "data1" "data2" ';
my @words = split/ /,$text;

for my $word(@words) {
	if ( $word =~ /(data)(\d)/ ) {
  	print "Data" . $2 . ": $1$2 ";
	}
}


=head Execution:

perl 737495.pl
Data1: data1 Data2: data2

=cut