use warnings;
use strict;

my $str = do {local $/; <DATA>};
my @matches = $str =~ /(\w+):(.*)/g;

print "@matches\n";

__DATA__
1: one
2: two
3: three

##</code><code>##

1  one 2  two 3  three