if ($junk=~m/$badregex/) {
    print qq~\nSee....?\n~;
}