Text parsing help... perl?

Ok, I know there has to be a way to do this easier than what I'm doing now. I have a list like this:
c5t50060E80000000000000811C00000B0Cd0s2
c5t50060E80000000000000811C00000B0Bd0s2
c5t50060E80000000000000811C00000B0Ad0s2

I want to strip out the c5t at the beginning and the d0s2 at the end. I figure I can dump it into a text file and just do a search/replace in vi, but I do shit like this enough that I'd like to understand how to do it with perl.

i'm familiar with the search and replace format and it is identical except the OR that you have in there. so, in perl it seems to allow for ^c5t OR d0s2$. sed and vi just seem to treat (^c5t|d0s2$) as a single string.