perl -ple '%r=qw([ 1 ] 3);s/([][])/&#9$r{$1};/g'