perl problem

date posted 24th January 2001 17:00

Can anyone interperet this subroutine as I know little about perl.

# STRIP SUBROUTINE
sub strip {

my($cheese)= @_;

$cheese =~ s///g;
$cheese =~ s/
//g;
$cheese =~ s/
//g;
$cheese =~ s/|//g;
$cheese=~ s/["]/"/g;
$cheese =~ s/%95//g;
return ($cheese);
thanks in advance

Rob

Messages by Day

January 31st 2001

January 30th 2001

January 29th 2001

January 28th 2001

January 27th 2001

January 26th 2001

January 25th 2001

January 24th 2001

January 23rd 2001

January 22nd 2001

January 21st 2001

January 20th 2001

January 19th 2001

January 18th 2001

January 17th 2001

January 16th 2001

January 15th 2001

January 14th 2001

January 13th 2001

January 12th 2001

January 11th 2001

January 10th 2001

January 9th 2001

January 8th 2001

January 7th 2001

January 6th 2001

January 5th 2001

January 4th 2001

January 3rd 2001

January 2nd 2001

January 1st 2001

Messages by Month

Messages by Year
2008
2007
2006
2005
2004
2003
2002
2001
2000