'string'
"another string"
q(yet another)
qq<or like this>


##</code><code>##

12
1_2
0b1100
0x0c


##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my @arr = qw( 10 10 20 0x47 1 30 45 45 );
my @converted = map /^0x/ && oct || $_, @arr;
say for @converted;


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,