$/ = undef;
$_ = <$:>;
$/ = \1;
[...]
s/,\s /\$a[\$b]=ord(<>);/gx;
[...]