0:20 >perl -E "my $line = qq[asdf asdf asdf INC1234567 klasdv asf asdf ]; if ($line =~ /INC\d{7}/ ) { say qq[yes]; } else { say qq[no]; }" yes