say what you see

[iamcal]

#!/usr/bin/perl -w

use strict;

my $prog="
>>>>>-.<<<+<<<vvv+.^^>^>-.<+.^-v<+>>>-.^^^^+^^^^^^<
+.v>+.<<^+.+>++.v-.^>-.v+.^<^^-.<^<^<^<^+.^>>>^+.^^
+<v>>+.^>>>>-.^^^-.<<<<+-+.>vvv--<<-.++.<<<+.<<-.++
>>>>>+.";

my(@b);for((join('.',1..100))=~m|((?:\d+\.?){10})|g
){my@c=split(/\./);push(@b,\@c);}my($a,$x,$y)=(80,0
,0);for(split(//,$prog)){if('v'eq$_){$y=($y+1)%10;}
if('>'eq$_){$x=($x+1)%10;}if('+'eq$_){$a+=$b[$y]->[
$x ];}if('^'eq$_){$y=($y-1)%10;}if('-'eq$_){$a-=$b[
$y]->[$x];}if('.'eq$_){print(chr($a));}if('<'eq$_){
$x=($x-1)%10;}}