How can I extract a substring up to the first digit?

Question

How can I find the first substring until I find the first digit?

Example:

my $string = \'AAAA_BBBB_12_13_14\' ;

Result expected: \'AAA

Answer 1

  $str =~ /(\d)/; print $`;

This code print string, which stand before matching