while () { print "$1\n" if m/gif"><\/td>(?:)?([A-Z0-9\(\)\[\]]+)(?:<\/b>)?<\/td>(?:(?:)?([A-Z0-9\(\)\[\]]+)(?:<\/b>)?<\/td>)?<\/tr>/; } __DATA__ gif">XXX gif">XXX gif">XXX gif">XXXYYY