my $delimiter = qr/\s+/;