perl extracting substrings from string

$tina = abc_mn123_ln1xy8_dkxhs

I want to get

$mnval = 123;
$lnval = 1;
$xyval = 8;

without using substr thrice.

I tried this .. but this is wrong syntax.

($mnval,$lnval,$xyval) =~ m/^abc_mn(\d\d\d)_ln(\d)xy(\d)_.*$/;

Is there a way I can do this in one go, using a search or match reg
expression ?

thanks.

.