STRIPSLASHES sub function in PERL

Here's a simple PERL function with REGEX implementation to do stripslashes (a PHP function).

#!/usr/bin/perl

sub stripslashes
{
   my ($string) = @_;

   $string =~ s/\\(\'|\"|\\)/$1/g;
   return $string;
}


1;