my $line = 'abc123def456ghi';

if (my @matches = $line =~ m/\w+?(\d+)/g) {
    print "@matches\n";
}