$line=~/.*\sid=\"(.*)\"\slo=\"(.*)\"\sto=\"(.*)\"\srb=.*$/;

##</code><code>##

#maybe try something like 
print "$2\n\n" if $2;

##</code><code>##