{$_ .= <DATA>;redo if !eof(DATA); }s/#//g;eval 
__END__
########map######$a.=#######chr($##_),     qw/112 114 105 
##110 ##116## 32  34 ##   ##     ##
########   #####  74 ####### 117 ## 115 116 
##32 97 110## 111 116## 104## 101## 114 32 80 101 114 108 32 
##104 97 99###### 107## 101## 114####### 44 34 59/;eval $a