Re^2: This is not a pipe

[Zaxo]

Or, taking "this" to be $_ as we do, -p and print, print q m n'est pas une pipem, $/; (yes, I mean that ;-)

[belg4mit]

It's too late now, but if perl had added a special syntax of m!! to indicate a negated match we could use m!\|!. As it is we have a modified form of one of sfink's suggestions: $_ !~ m/\|/.

Also, what about?

pipe(STDIN, STDOUT);
#Optional:
$|--, print STDOUT "This is not a pipe\n" ne <STDIN>;