If they all start and end with the same characters and those characters aren't anywhere in the middle part of your string, the gsub
expression is simple:
> x <- c("PP_Sample-12.GT","PP_Sample-17.GT")
> gsub('[(PP_)|(.GT)]','',x)
[1] "Sample-12" "Sample-17