Linear Regex Replaces with Perl

process.pl

#!/usr/bin/perl -w

use strict;

while (<>) {
	s/\t/|/g;          # Convert Tabs to Pipes
	s/\r?\n/[]\r\n/g;  # Add [] at EOL and Convert to CRLF
	s/^\|+\[\]\r\n//g; # Remove Empty Lines
	
	print;
}