in reply to Fetch numbers only

s/(.*?)\_(\d+)/$2/;

In Section Seekers of Perl Wisdom