use strict;
use warnings;
require Data::Dumper;

Data::Dumper::Dumper({
	debug => 0,
	filters => [],
});

my $in = 'x                                              ';
print length($in)."\n";
my $filter = 'x';

	print "0.\n";
if( $in=~/$filter/g )
{
	print "1.\n";
	my @s=@-;
	print "2.\n";
}