my $text = '<tr align=right><td>/export/home3</td><td>308218</td><td>307200</td><td>308224</td><td>7.­0 days</td><td>0</td><td>0</td><td>0</td><td>-</td></tr>';
$text =~ s!<[^>]+>!^!g;        # replacing tags with caret
my @data = split(/\^/, $text); # splitting at caret
my @data = grep {$_} @data;    # remove undef elements
print join(" : ", @data);
__END__
/export/home3 : 308218 : 307200 : 308224 : 7.­0 days : -