All pastes #941349 Raw Edit

Something

public text v1 · immutable
·published 2008-03-13 17:20 UTC
rendered paste body
	if ($strMessage =~ m/^\Q$prefix\Eregex (.*?) @ (.*?)/) {

			if ($2 =~ m/$1/) {
				print $sckSocket 'PRIVMSG ' . $strChannel . ' :Your regex is correct' . "\r\n";
			}
			else { 
				print $sckSocket 'PRIVMSG ' . $strChannel . ' :Your regex fails' . "\r\n";
			}
	}