#!/usr/bin/env perl 
use strict;
use warnings;
use feature 'say';

my $x = 'a-9';

say "Scalar: " . $x =~ /(\d+)/;
say "List:   " . ($x =~ /(\d+)/);
say "First:  " . ($x =~ /(\d+)/)[0];