if ( $contractors =~ m/^$string(.*)/ )