$_ = 'alpha="first" beta="second" gamma="third"';

for my $id (qw( alpha beta gamma )) {
    my ($val) = /\b$id=("[^"]*"|\w+)/
        or next;

    print("$id: $val\n");
}