$calar =~ tr/\/{1,}//;
#############$1----###