$str = '/2010-04-01/Tom/Ken/Fred/John.jso';

$str =~s/Tom//g;
print $str;