Perlでprintしながら同時に変数に格納することはできますか？

HTMLのサンプルフォーム作成ツールみたいなことをしたくて
サンプルを実際とコードの両表示させたいのです。