#!/usr/bin/perl

use strict;
use warnings;

# Check filename
my $file_name = "xTest-1 [ ] 'copy'.png	 ";

my $input = filter( $file_name) || ''; 

print  "\n*$input* \n";

### Looking to get this: xTest-1copy.png

sub filter {
  my $str = shift || '';

  $str =~ s/[^[:ascii:]]//g; # strip everything but ASCII characters
  #$str =~ s/[^!-~\s]//g;

  return $str;
}