Very basic benchmark provided by jdv79

match-quick.jl

#!/usr/bin/env julia

pat = r"^
    (?<date> \S+ ) \s+
    (?<time> \S+ ) \s+
    (?<size> \S+ ) \s+
    (?<path> \S+ )
$"x

for line ∈ readlines()
    m = match(pat, line)
    m === nothing && throw("invalid line")
    (date, time, size, path) = (m[:date], m[:time], m[:size], m[:path])
end

match-quick.p6

#!/usr/bin/env raku

my $pat = rx/^
    $<date>=[\S+]\s+
    $<time>=[\S+]\s+
    $<size>=[\S+]\s+
    $<path>=[\S+]
$/;

lines().map: {
    die "invalid line" unless $_ ~~ $pat;
    my %parts = $/;
}

match-quick.pl

#!/usr/bin/env perl

use strict;
use warnings;

while (<>) {
    my ($date, $time, $size, $path) = my @parts
      = $_ =~ /^(\S+)\s+(\S+)\s+(\S+)\s+(\S+)$/;
    die "invalid line" unless @parts == 4;
}