use Modern::Perl; use Data::Dump::Streamer; my $x= "cr-\15, lf-\12, tab-\11, bs-\10"; say Dump $x;