in reply to Using piped I/O?
unless( $filename =~ /\.pep?$/) #Checking if the file extension is .pep [download]
Actually, that checks if the file extention is ".pe" OR ".pep" OR ".pe\n" OR ".pep\n".