my $timestamp = qr/[A-Z][a-z]+\s+\d+\s+\d+\:\d+\:\d+/; my $address = qr/[\.\d]+/; my $id = qr/\d+/; my $timezone = qr/[A-Z]+:/; # and so on