View difference between Paste ID: eGARKVVa and gJKizdYS

 #!/usr/bin/env perl -w
 
 use common::sense;
 use autodie;
 
 my $p = 0;
 my $lim = 5000;
 my @a = (1..$lim);
 my @loop;
 my $s = 0;
 
 for my $cnt (1..$lim){
 	$a[$cnt] = 0;
 }
 
 open my $bf, "<", $ARGV[0];
 my $data;
 {
 	local $/;
 	$data = <$bf>;
 }
 
 sub getchar{
 	chomp (my $in = <>);
 	return (ord(substr($in,0,1)));
 }
 
 foreach my $i (split (//, $data)){
 	$i = substr($data,$s,1);
-
+   		given ( $i ) {
-		when ($i eq '+') {$a[$p] = -1 if ($a[$p] == 255); $a[$p]++;}
+			when ($i eq '+') {$a[$p] = -1 if ($a[$p] == 255); $a[$p]++;}
-		when ($i eq '-') {$a[$p] = 256 if ($a[$p] == 0); $a[$p]--;}
+			when ($i eq '-') {$a[$p] = 256 if ($a[$p] == 0); $a[$p]--;}
-		when ($i eq '>') {$p = -1 if ($p == $lim); $p++;}
+			when ($i eq '>') {$p = -1 if ($p == $lim); $p++;}
-		when ($i eq '<') {$p = $lim + 1 if ($p == 0); $p--;}
+			when ($i eq '<') {$p = $lim + 1 if ($p == 0); $p--;}
-		when ($i eq ','){
+			when ($i eq ','){
-			$a[$p] = getchar;
+				$a[$p] = getchar;
 			}
-		when ($i eq '.'){
+			when ($i eq '.'){
-			print chr $a[$p];
+				print chr $a[$p];
 			}
-		when ($i eq "[") {
+			when ($i eq "[") {
-			push (@loop, $s);
+				push (@loop, $s);
 			}
-		when ($i eq "]") {
+			when ($i eq "]") {
-			if ($a[$p] != 0) {
+				if ($a[$p] != 0) {
-				$s = $loop[scalar(@loop) - 1];
+					$s = $loop[scalar(@loop) - 1];
 				}
-			else {
+				else {
-				pop @loop;
+					pop @loop;
 				}
 			}
 		}
 
 }
 print "\n";