http://qs321.pair.com?node_id=947293


in reply to Re: REGEX Non-Destructive Flag
in thread REGEX Non-Destructive Flag

Data::Dump::Streamer can do that:

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

prints

$VAR1 = "cr-\r, lf-\n, tab-\t, bs-\b";

or as a one-liner,

perl -MDDS -wE 'say Dump "cr-\15, lf-\12, tab-\11, bs-\10";'