Matching numbers using Perl regex

#!/usr/bin/env perl

use v5.14;
use warnings;

my $str = 'Usage:524944/1000000 messages';

# Sadly, the most common way.
if ( $str =~ m{Usage:(\d+)/(\d+) messages} ) {
    my ($used, $total) = ($1, $2);
    say "$used $total";
}

# Better, pre-modern Perl.
if (my ($used, $total) = $str =~ m{Usage:(\d+)/(\d+) messages}) {
    say "$used $total";
}

# Modern Perl has named captures!
if ($str =~ m{Usage:(?<used>\d+)/(?<total>\d+) messages} ) {
    say "$+{used} $+{total}";
}