http://qs1969.pair.com?node_id=513811

jesuashok has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,

I have this one, but it only accepts 10.3.2.1 (as well as www.example.com).

if (($qs =~ /^(\d+\.\d+\.\d+\.\d+)$/) or ($qs =~ /^([a-zA-Z0-9][a-zA-Z0-9\.\-_]*)$/)) { $qs = $1;
Any suggestions?

"Keep pouring your ideas"