#!/usr/bin/perl -w

use strict;    #Pimps must control they hoes

my $foot = "";
my $bitch = "";
my $money = "";
my $hoe = \$bitch;
my $cash = \$money;
my $she_got = "";
unless ($bitch =~ m/$money/) {
     if ($hoe != /$cash/ or $she_got ne $cash) {
          $hoe .= $foot;
        }
}