$pipe_thisline=($_ =~ tr/\|/\|/);