use Regexp::Common qw /net/;

/\A $RE{net}{IPv4} | password | (ssn=) \z/xmi;