#!/usr/bin/env perl
use strict;
use warnings;

use Test::More tests => 1;

my $in   = q/xTest-1 [ ] 'copy'.png     /;
my $want = 'xTest-1copy.png';

my $have = filter ($in);

is $have, $want;

sub filter {
    my $str = shift or return '';
    return $str =~ tr/A-Za-z0-9.-//cdr;
}