This code turns "Name1/Name2/Name3" into "Name1 : Name2 : Name3", but I would like that this code would turn in into "Name3" only!
So: Just the last word, if you read backwords! Who Can help me out ? Please...
my ($input) = shift;
$input =~ s,/, : ,g; # Change '/' to ' : '.
return $input;
}
[This message has been edited by ds (edited February 20, 1999).]
So: Just the last word, if you read backwords! Who Can help me out ? Please...
Code:
sub build_clean { my ($input) = shift;
$input =~ s,/, : ,g; # Change '/' to ' : '.
return $input;
}
[This message has been edited by ds (edited February 20, 1999).]