$variable =~ s/([^<]*?)\s+\d{2}(\d{2}[^<]*?)$/$1-$2/igs;
$variable =~ s/\s+/-/igs;