my @delim_seq = qw/: :: \s+ = \n/;
my $string = "a:b::c   d=e\n";
my @fields = ();
foreach my $delim ( @delim_seq ) {
   $string =~ s/(.*?)$delim//;
   push @fields, $1;
}