in reply to Perl Exp - Retrieve value

print(  (split(/-/,$str))[1]  );

[download]

In Section Seekers of Perl Wisdom