Help for this page
perl -le 'for(@ARGV){ s/(?=SUM).*\K..//; print }' abcSUMcdexx abcSUXcd +exx abcSUMc
abcSUMcde abcSUXcdexx abcSU