#!/usr/bin/perl 
my $pw   = 'secret'; 
my $salt = 'sa'l
print crypt($pw, $salt);


##</code><code>##

 

if($mySavedPassword =~ s/^\$2a\$04\$/){ 
  # ... blowfish!
}