#!/usr/bin/perl

$number = '12586'
use Number::Format qw(:subs :vars);
  $THOUSANDS_SEP   = '.';
  $DECIMAL_POINT   = ',';
  $INT_CURR_SYMBOL = 'DEM';
  my $formatted = format_number($number);
  
  
format_picture($number, '## ### ### ###')