Challenge 1: Extract an Order Number — Possible Solution
====================================================================

use strict;
use warnings;
use feature 'say';

my $text = "Your order ORD-88213 has shipped";

if ($text =~ /(ORD-\d+)/) {
    say $1;
}

Output:
ORD-88213

WHY THIS WORKS AS AN ANSWER
------------------------------
$text =~ /(ORD-\d+)/ reuses the chapter's own m// binding-operator
pattern exactly (with the optional "m" omitted, per the chapter's own
note that this is identical to writing m/.../), applied here to a
new order-number format instead of the job-reference example.

The pattern itself reuses \d+ from the chapter's own Order #(\d+)
example — one or more digits — combined with the literal text
"ORD-" that must precede them, all wrapped in parentheses to make it
a capture group.

say $1; reuses the chapter's own explanation directly: a successful
match with a capture group populates $1 automatically as a side
effect, with no separate match-object method call needed (unlike
Python's match.group(1)) — so simply printing $1 immediately after
the if condition succeeds is enough to retrieve exactly the captured
text, "ORD-88213", with none of the surrounding sentence included.