#!/usr/bin/perl

# Remove for production in case of deployement on legacy platforms.
#use strict;
#use warnings;

my $string = $ARGV[0];

$string =~ s/\W/_/g;

print $string."\n";
