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

my $id='TEST TEST foo|bar*test';
my @testdata = split(/ /, $id);

print "Pre-regex: $id\n";
my @filename_filter=('\*',
			'\|',
			'<',
			'>',
			'\?',
			'/');

# $id =~ s/[@filename_filter]//g;

for my $filename_filter(@filename_filter) {
	$id =~ s/$filename_filter//g;
}

print "post-regex: $id\n\n";


for my $testdata(@testdata) {
	for (@filename_filter) {
		my $regex = qr($_);
		$testdata =~ s/$regex//;
	}
print "split&regex: $testdata\n";
}
##</code><code>##

Pre-regex: TEST TEST foo|bar*test
post-regex: TEST TEST foobartest

split&regex: TEST
split&regex: TEST
split&regex: foobartest