Perl 5 , 61 bytes
60 bytes code + 1 for -p.
Perl 5 + -p0513, 56 bytes
$ _ =$ _ =q";HHeelllloo=q";HHeelllloo,, WWoorrlldd!!";;;q##;s";;;s/;|.\K.//g##
g;;Every Odd Byte
Every odd byte
$_= $_="Helloq;Hello, World!";q#s;;;/|\.K/g#
;Every Even Byte
Every even byte
$_= q;Hello$_="Hello, World!;;#;/|\";s;.K/#
g;Perl 5 , 61 bytes
60 bytes code + 1 for -p.
$ _ =$ _ =q";HHeelllloo,, WWoorrlldd!!";;;q##;s/;|.\K.//g##
Every Odd Byte
$_="Hello, World!";q#s;.K/g#
Every Even Byte
$_= q;Hello, World!;;#;/|\./#
Perl 5 + -p0513, 56 bytes
$ _ =$ _ =q";HHeelllloo,, WWoorrlldd!!";;;s/;|.\K.//g;;Every odd byte
$_= q;Hello, World!;;/|\./;Every even byte
$_="Hello, World!";s;.K/g;PerlPerl 5, 7161 bytes
Fortunately Perl pretty stable with some chars removed!60 bytes code + 1 for -p.
pprriinntt +qq{{HHeelllloo,, WWoorrlldd!!}};;q##;print"Hello, World!"#
$ _ =$ _ =q";HHeelllloo,, WWoorrlldd!!";;;q##;s/;|.\K.//g##
Every odd character (1-indexed)Odd Byte
print+q{Hello, World!};#;rn"el,Wrd"
$_="Hello, World!";q#s;.K/g#
Every even characterEven Byte
print q{Hello, World!};q#pitHlo ol!#
$_= q;Hello, World!;;#;/|\./#
Perl, 71 bytes
Fortunately Perl pretty stable with some chars removed!
pprriinntt +qq{{HHeelllloo,, WWoorrlldd!!}};;q##;print"Hello, World!"#
Every odd character (1-indexed)
print+q{Hello, World!};#;rn"el,Wrd"
Every even character
print q{Hello, World!};q#pitHlo ol!#
Perl 5, 61 bytes
60 bytes code + 1 for -p.
$ _ =$ _ =q";HHeelllloo,, WWoorrlldd!!";;;q##;s/;|.\K.//g##
Every Odd Byte
$_="Hello, World!";q#s;.K/g#
Every Even Byte
$_= q;Hello, World!;;#;/|\./#
Perl, 71 bytes
Fortunately Perl pretty stable with some chars removed!
pprriinntt +qq{{HHeelllloo,, WWoorrlldd!!}};;q##;print"Hello, World!"#
Every odd character (1-indexed)
print+q{Hello, World!};#;rn"el,Wrd"
Every even character
print q{Hello, World!};q#pitHlo ol!#