smujohnson

use Term::ANSIColor qw(:constants);
use 5.010;

while (<STDIN>) {
  my @words = split(' ');

  foreach my $word (@words) {
    s/c/k/;
    s/ti/sj/;
    s/ity$/itet/;

smujohnson

#!/usr/bin/perl

use strict;
use warnings;

use feature 'say';

# Notice that the values are all equal for some of the keys
my @stuff = (
  { a => "1", b => "2", c => '4'},

smujohnson

#!/usr/bin/perl

use strict;
use warnings;

use 5.010;

use Data::Dumper;

my @stuff = ( { a => 1, b => 2} );

smujohnson

#!/usr/bin/perl

use strict;
use warnings;

use 5.010;

use Data::Dumper;

# ---

smujohnson

#!/usr/bin/perl

use strict;
use warnings;

use v5.10.0;

use Sjohnson::Database qw(getTBMDSN);
use Sjohnson::Shortcuts qw(slurp);

smujohnson

# aarobc's /etc/inputrc



# /etc/inputrc - global inputrc for libreadline
# See readline(3readline) and `info rluserman' for more information.

# Be 8 bit clean.
set input-meta on
set output-meta on