use Regexp::Common;
  /^$RE{num}{decimal}{-places=>'0,5'}$/ and $_ <= 180;