use strict; 
use warnings; 

my $text = 'birthdate1234zodiac';
if ($text =~ /birthdate(.*?)zodiac/i) {
    my $birthdate = $1;
    print "$birthdate\n";
}

__END__

prints:
1234