Perl Slugify

slugify

#!/usr/bin/env perl

use strict;
use warnings;
use Text::Iconv;

my $converter = Text::Iconv->new('utf-8', 'ASCII//TRANSLIT');
my $separator = '-';

my $slug = lc $converter->convert('Coração de Anão');

$slug =~ s/ /_/g;
$slug =~ s/\W//g;
$slug =~ s/_/$separator/g;

print $slug;