while ($content =~ m! tr \s+ class="bgrow1"> (.*?) # $1 (.*?) # $2 country (.*?) # $3 destination (.*?) # $4 (.*?) # $5 trip_length # $6 url (.*?) # $7 !gisxm)