in reply to Regex to take an ip address before a comma

You can try this 
$strout = (split(',',$line))[0];

[download]

In Section Seekers of Perl Wisdom