Select Code to Download

sub something {
    my( $string ) = @_;
...
my $hugeString = ........;

something( $hugeString );

fuzzyMatch( \$hay, \$nee, 3 ); ## pass references to needle and haysta
+ck

sub fuzzyMatch {
     my( $rHay, $rNee, $misses ) = @_; ## the 'r's are to remind that 
+these are references

     my $lNee = length $$rNee; ## read as: $lenghtNeedle = length of t
+he data $, referenced by $rNee