The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
/\s(<[^>]*>)*phone(<[^>]*>)*\s/ @name = phone
/\s(<[^>]*>)*ticket(<[^>]*>)*\s/ @name = ticket
/\s(<[^>]*>)*charge(<[^>]*>)*\s/ @name = charge
/\s(<[^>]*>)*connect(<[^>]*>)*\s/ @name = connect
/\s(<[^>]*>)*wait(<[^>]*>)*\s/ @name = wait
/\s(<[^>]*>)*read(<[^>]*>)*\s/ @name = read
/\s(<[^>]*>)*line(<[^>]*>)*\s/ @name = line
/\s(<[^>]*>)*modem(<[^>]*>)*\s/ @name = modem
/\s(<[^>]*>)*counter(<[^>]*>)*\s/ @name = counter
/\s(<[^>]*>)*print(<[^>]*>)*\s/ @name = print
/\s(<[^>]*>)*text(<[^>]*>)*\s/ @name = text
/\s(<[^>]*>)*service(<[^>]*>)*\s/ @name = service
/\s(<[^>]*>)*queue(<[^>]*>)*\s/ @name = queue
/\s(<[^>]*>)*file(<[^>]*>)*\s/ @name = file