#!perl -l
$_ = '<key>Album</key><string>1963 - The Lightning Fingers of Roy Clark</string>';
s/(<key>Album<\/key><string>)\d+\s*-\s*/$1/ ;
print;
# outputs: <key>Album</key><string>The Lightning Fingers of Roy Clark</string>