Do a sub(sub())!

sub(".*Energy", "", sub("Prop.*","","EnergyFossilProp"))