use strict;
use warnings;

#my $filename = "<test.txt"; #example 1
#my $filename = ">test.txt"; #example 2
#my $filename = ">>test.txt"; #example 3

my $filename = "|test.txt";

if ($filename =~ /^\|\s*test/ )
{
	 print "\npipefront\n";
}
elsif ($filename =~ /test\.txt\s*\|$/ )
{
	print "\npipeend\n";
}