I know of perl regex, which means regular expressions.
(.)+ means anything, any amount of characters.
but r1 seems to be using an interpretted string, eg "$somevar" would make a string "the information that was inside of $somevar"
therefore use the escape character \
Therefore to put in *!savvykms@*.comcast*
a very crude method is:
meaning any chars for nickname, a !, savvykms for username, an @ symbol, any chars, comcast, any chars
Not sure if this will work properly, as i'm not very good at regex, i perfer checking things easier, but knowing how to use the \ character is very important in Perl. using a regex doing something like \n could be dangerous, as it means newline in most things, but there are some \letter combos that are used to mean "any whitespace character(s)" etc, just be careful as to what you do.