Simple regex for DMS angle notation

degree.pl

#!/usr/bin/env perl

use v5.16;
use strict;
use warnings;

while (my $str = <STDIN>) {
    say "DMS" if $str =~
    m/([0-9]+(\W*)deg((ree)?s?)?)?(\W*)([0-9]+(\W*)min((ute)?s?)?)?(\W*)([0-9]+(\.[0-9]*)?(\W*)sec((ond)?s?)?)?/;
}