Удалить шаблон из строки с помощью gsub

Я изо всех сил пытаюсь удалить подстроку перед подчеркиванием в моей строке. Я хочу использовать*(подстановочный знак )в качестве бита перед подчеркиванием может варьироваться:

a <- c("foo_5", "bar_7")

a <- gsub("*_", "", a, perl = TRUE)

Результат должен выглядеть как:

> a
[1] 5 7

Я также пробовал такие вещи, как "^*" или "? », но толком не работал.