in reply to Delete from string through s///

will this work for you? 
s/(?<=<string>)\d+\s*-\s*//;

[download]

In Section Seekers of Perl Wisdom