#!/usr/bin/perl -w use strict; my$a="ttbb bbbb bpe b bbbrlxttbbb bbbbb mob bnk xtt bbb bbb bbb bsp xttbb bbb bbb erb brl xtt bbb bbb bmo bbb bnk xtt bbb bbb spb bbb bbe rxt tbb bbb lmb bbb bbb bon xtt bbb bbk sbbbbbbbbpext tbb bbb brl bbb bbb moxttbbbbbbbnkb bbb spx ttb bbb bbb ber bbl mxt tbb bbb bbbbbo nxt tbb bbbbbbksbbp ext tbbbb bbb rlb bbbmoxttbb bbb bnkb bbb bbs p";$a=~s/\s//g;$a=~s/b/\x20/g;$a=~s/t/\x9/g;$a=~s/x/\n/g;print"\n$a";
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |