Re: help about regex matching

Based on your code, you can do the following:
{
local $/="", $\="\n";
while (<FILE>)
{
#next unless /^(.+?)$(?=.*(\d+\.\d+\.\d+\.\d+))/sm;
#print $1,"\t",$2,"\n";
chomp;
tr/\n/\t/;
print;
}
}

#or use one-liner as

perl -lp00e 'tr/\n/\t/' mydata.txt

XC

.