Sudoku (solved)

#!/usr/bin/perl my @overlay; if( $#ARGV == 1) { @overlay = readFile($ARGV[1]); }else{ @overlay = ( "111222333", "111222333", "111222333", "444555666", "444555666", "444555666", "777888999", "777888999", "777888999" ); } my @sud = readFile($ARGV[0]); &genHTML(@overlay,@sud); sub readFile { open FILE, "<", $_[0] or die $!; binmode FILE; @lines = ; $_ = join("", @lines); close FILE; if( /([0-9]{9,9}\r?\n){8,8}([0-9]{9,9}\r?\n?)/ ) { foreach(@lines) { s/\r?\n//g } return @lines; } die "Konnte Datein nicht einlesen!\n"; } sub genHTML { printHead(); for($i=0;$i<9;$i++) { print "\t\t\t\n"; for($j=0;$j<9;$j++) { print "\t\t\t\t" , substr($sud[$i],$j,1) , "\n"; } print "\t\t\t\n"; } printFoot(); } sub printHead { print < Sudoku (solved) EOT } sub printFoot { print < EOT }