if($field =~ /d2\/d2\/d2/)
{ 
    s/1//;
}