$ perl -lne 'print for /(.)(.*)/'
dfdfsdgdfs
d
fdfsdgdfs
stgsghttsthe
s
tgsghttsthe