Perl - Passphrase Generator

The following example is just a simple Perl primer to re secure a passphrase (reference)

line 1:   #!/usr/bin/perl -w
line 2:  
line 3:   use strict;
line 4:   my $passphrase;
line 5:  
line 6:   $passphrase = "longtailcaston";
line 7:   $passphrase =~ tr/os/0$/;
line 8:   print $passphrase . "\n";

The passphrase will change from this longtailcaston to this l0ngtailca$t0n change line 7 to suit your needs. With very little work this primer could turn into a command line/web based program.

Examples:

Two tier approach to passwords (phrase + re secure)
Change complexity levels
Generate passphrases from a quote or book