- or download this
c:\@Work\Perl>perl -wMstrict -le
"my %xlate_map = qw/ ( l_paren ) r_paren { l_curly } r_curly /;
...
print qq{'$xlt'};
"
'a l_curly b r_curly c l_paren d r_paren e'
- or download this
c:\@Work\Perl>perl -wMstrict -le
"use 5.014;
...
print qq{'$xlt'};
"
'a l_curly b r_curly c l_paren d r_paren e l_curlyl_curlyFr_curlyr_cur
+ly l_parenl_parenGr_parenr_paren'
- or download this
c:\@Work\Perl>perl -wMstrict -le
"print qq{Perl version $] };
...
"
Perl version 5.008009
'a l_curly b r_curly c l_paren d r_paren e l_curlyl_curlyFr_curlyr_cur
+ly l_parenl_parenGr_parenr_paren'