#!/usr/bin/perl
use strict;
use 5.016;

# 1084488 

my $line = '<td align="left"><b>A</b> - Tilt: 19&#176; - Segments: 1(72-93)</td>';
 
if ($line =~ /<td align="left"><b>A<\/b>\s+-\s+Tilt:\s+\d+&#\d+;\s+-\s+Segments:\s+(.*?)<\/td>/) 
{
     say 'yep, good match'; 
     say $1;
} else { 
        say 'boo';
}