Help for this page
$val = '123'; while (<DATA>) { ... __DATA__ test_string_$val
use strict; use warnings; ... __DATA__ test_string_$val