$ perl tst.pl
GATCATACAGT at tst.pl line 8, <DATA> chunk 1.
GATCATACAGT at tst.pl line 8, <DATA> chunk 1.
$