Select Code to Download

14:33 >perl -wE "my $s = 'Australia’s ‘Powder Capital’'; $s =~ tr/‘’/'
+/; say $s;"
Australia's 'Powder Capital'

14:33 >

14:42 >perl -wE "my $t = 'and ... xxx said “This is a fantastic start 
+to the season”'; $t =~ tr/“”/\"/; say $t;"
and ... xxx said "This is a fantastic start to the season"

14:43 >

14:46 >perl -wE "my $s = qq[Australia’s ‘Powder Capital’\nand ... xxx 
+said “This is a fantastic start to the season”]; $s =~ tr/‘’“”/''\"\"
+/; say $s;"
Australia's 'Powder Capital'
and ... xxx said "This is a fantastic start to the season"

14:49 >