Change to perl regex in grep.