$ perl foo.pl
Content of 1.pdb is some text
Content of 2.pdb is some more text