...
    if ( my @captures = $string =~ m/$pattern/ ) {

        return @captures;
    } else {
        return;
    }