my $rx_ya = qr{ \S (?: \s* \S+)* }xms; my $rx_ex = $rx_ya; my $rx_sep = qr{ \s+ : \s+ }xms; ... $datum =~ m{ \A \s* ($rx_ya) $rx_sep ($rx_ex) \s* \z }xms;