use strict;
use warnings;

my $str = <<'HTML';
<td><img class="res" src="img/un/r/1.gif" title="Lumber"></td>
<td id=l4 title=60>63/1200</td>

<td class="s7"> <img class="res" src="img/un/r/2.gif" title="Clay"></td>
<td id=l3 title=60>97/1200</td>
<td class="s7"> <img class="res" src="img/un/r/3.gif" title="Iron"></td>
<td id=l2 title=60>61/1200</td><td class="s7"> <img class="res" src="img/un/r/4.gif" title="Crop"></td>
<td id=l1 title=43>106/1200</td>
HTML

my @matches = $str =~ m!\d+/\d+!g;

print join "\n", @matches;

##</code><code>##

63/1200
97/1200
61/1200
106/1200