将perl脚本变成乱糟糟的一团

#!/usr/bin/perl

while( <> )
{
	if( /^#/ )
	{
		if( /^#!/ )
		{
			print $_;
		}
		next;
	}
	if( /##/ )
	{
		print $_;
		next;
	}

	next if( /^\s+#/ );
	chomp;
	s/\s+#.*//g;
	s/;#.*/;/g;
	s/;\s+#.*/;/g;
	s/\t/ /g;
	s/    / /g;
	s/<<.*;/"/g;
	s/END/";/;
	s/SQL_END/";/;
	print $_;
}

编程技巧