my $str = "123dog\n";
say "-->$str<--";

--output:--
-->123dog
<--