while($line =~ /\|i([^|]*).*?\|l([^|]*)/g) {